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ABSTRACT 



The current method for creating tactical logistics estimates in the Army 
inadequately incorporates historical data on the actual consumption of supplies. The 
automated-logistics-planning system described in this thesis addresses this deficiency. 
The program developed in this research produces general estimates for selected supply 
items by referencing equations and variables from current Army planning documents 
and performing the necessary calculations. The program uses reasoning to identify 
previous operations which are analogous to the current operation. Separate criteria are 
used to identify the strongest analogies to the current operation for each of five 
categories of supply items. Information contained in the historical records of the three 
strongest analogies in each category is used to revise the general estimates. The revised 
estimates are hopefully more accurate in predicting actual supply requirements for the 
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I. INTRODUCTION 



A. BACKGROUND 

The conduct of military operations is inextricably interwoven with the ability to 
support them. One of the five Principles of War, Mass, has as its premise that superior 
combat power must be concentrated at the decisive place and time in order to achieve 
decisive results. Logistics planning is fundamental to achieving this aim. It defines 
realistic scenarios for the study of alternative courses of action, and determines directly 
the length of time that weapons and units can be effective. 

In the United States Army, the tactical commander is responsible for logistics 
planning. He normally has assigned to him certain staff who assist him in estimating 
the logistics requirements of anticipated or considered actions, and in incorporating 
whatever limitations exist into his battle planning. Logistics planning at this level is 
dominated by the creation of estimates and the reporting of equipment, supply, and 
personnel status. Logistics estimates are created often and represent a significant work 
load for those soldiers whose job it is to produce them for the commander. 

There are currently no automated methods for assisting the tactical logistics 
planner in creating such estimates. Training Management and Control System 

(TMACS) is a software system currently in use in the Army which assists operational 
planners in programming and budgeting time, money, and supplies for training 

exercises [Ref. 1]. It does not, however, satisfy the need for an automated aid in 

preparing logistics estimates for actual tactical operations and in the conduct of 
contingency planning. 

At the same time, the military of the Soviet Union places great emphasis on 
automated means for enhancing their theory of control. The use of computers to 
perform referencing and calculations is actively pursued. Specifically, the referencing of 
applicable planning factors and execution of mathematical formulae in combat 

planning is an area in which they have exhibited considerable interest [Ref. 2]. 

This thesis investigates the nature of logistics estimation in the tactical 
environment. It identifies the merits of employing an automated system to perform 
some of the current labor-intensive manual referencing of equations and planning 
factors involved in creating a logistics estimate. A prototype of such an automated 



S 



system is one of the products of this research. Execution of the prototype on a sample 
database produces output that is easily understood by the logistics planner, and offers 
significant time savings in the preparation of logistics estimates. 

Reasoning is used in the prototype system in an attempt to provide more 
accurate logistics estimates than are currently provided by strict adherence to the 
procedures outlined in current Army planning documents. The reasoning algorithm is 
the most interesting facet of the prototype. The aim of all of this work is to provide 
the logistics planner with an aid in providing timely, useable, and well considered 
logistics estimates to the battlefield commander. 

B. RESEARCH TOPICS 

The first area of research centers around the process by which logistics estimates 
are created today. This process is strictly manual. A single reference document. Army 
field manual FM 101-10-1, contains equations and planning factors which the logistics 
planner uses in calculating the quantity of several supply items required to conduct an 
operation [Ref. 3]. The equations and planning factors used in these calculations are 
dependent upon several key descriptions about the operation for which the estimate is 
being prepared. The following tasks need to be performed by an automated system to 
duplicate the actions of the human logistics planner: 

1. identification of which attributes of an operation are critical to the selection of 
appropriate equations and planning factors needed to calculate logistics 
estimates 

2. determination of how such information can best be obtained from the user of 
the prototype program 

3. performance of the aforementioned references and calculations. 

The second area of research is concerned with reasoning about the similarity 
between operations. Operations which have the same value for certain key operation 
attributes can be considered analogous to the current operation. These analogies are 
then evaluated to determine the strength of the similarity between them and the current 
operation. The criteria used to establish the analogous nature of previous operations 
and the criteria used to establish the strength of the similarity between operations are 
both defined in the program, but can easily be modified to reflect user guidelines. Once 
the strongest analogies to the current operation have been determined, research into 
how the data contained in the historical records of these operations can be used to 
adjust the previously calculated estimates can be pursued. 
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The third area of research involves determining the method by which adjustments 
to the original logistics estimates are made. Analogous historical records contain 
information on both the original estimate and the actual consumption for each of the 
items of supply for which the program creates an estimate. The error percentage for 
each of the three strongest analogies in estimating the actual consumption of each of 
the supply items is calculated. Originally, an equal weighting of the error percentages 
calculated for the three strongest analogies was used to adjust the estimates for the 
current operation. The final version of the prototype handles the weighting somewhat 
differently. Specifically, the error percentages are weighted according to the strength of 
the similarity between the operation which generated them and the current operation. 
The composite error percentage is then used in a calculation which yields an 
adjustment to the original estimate. 

The fourth area of research deals with the format and structure of program input 
and output. The decision was made to utilize menus as much as possible for input 
from the user. Errors are common when using a program of this sort. Where menus 
are not practical, escape routines were included to allow recovery from input errors. 
Well structured, explanatory output is extremely valuable in understanding the 
behavior of the program. An effort was made to produce one page documents. The 
reasoning algorithm of the program is illustrated in tabular, one page summaries to 
assist the user in understanding how the reasoning is conducted. 

C. THESIS ORGANIZATION 

Chapter II discusses the manner in which tactical logistics planning is conducted 
today. The data elements needed to conduct such planning are identified and their 
relationship to the key operational planning document, the operation order 
(OPORDER), is explained. The linear equation model used to calculate logistics 
estimates is outlined, as well as the source and questionable validity of the planning 
factors. The difficulties faced by the tactical logistics planner in producing logistics 
estimates are identified. A short discussion on the type of reasoning expected of the 
logistics planner in creating estimates concludes the chapter. 

Chapter III outlines an artificial-intelligence approach to creating the logistics 
estimate. An initial discussion identifies the anticipated benefits of using an automated 
aid in assisting the logistics planner in creating the estimate. A lengthy discussion of 
the reasoning done in the program follows. Specifically, the use of reasoning to 
identify the similarity between operations is described. Examples are given to illustrate 
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how reasoning is actually conducted in the program. The examples are helpful in 
understanding the two step approach to analogy evaluation and the selection cf 
operation records for inclusion in the algorithm for adjusting estimates. The 
importance of simple input and output formats is highlighted, with emphasis on 
designing program output that reflects the reasoning which takes place in a program. 
High-level design decisions in development of the prototype are explained and program 
behavior is described in detail. 

Chapter IV discusses the potential of the thesis for assisting the tactical logistics 
planner in creating logistics estimates. The program represents a new approach to 
creating these estimates by applying real-world experience in adjusting estimates. 
Limitations of the program are discussed, as well as possible enhancements. The 
concluding discussion of the chapter identifies how the application of an automated 
logistics planning system of this type could be used in other related problem domains. 

The appendices are vital to understanding the workings of the program. 
Appendix A and Appendix B are demonstrations of the program execution of the 
logistics-estimate-creation module of the program. The demonstrations involve two 
very different operations. The logistics estimate created in Appendix A is for an 
operation conducted in Europe in a temperate environment. The logistics estimate 
created in Appendix B is for an operation conducted in Korea in a cold environment. 
Each demonstration includes the following items: 

1. a sample interactive session in which the user inputs the numbers of weapons 
and major end items in the task force 

2. a sample interactive session in which the user assign values to several attributes 
describing the operation 

3. a one page document produced by the program listing all operations which 
meet the criteria for being considered analogous to the current operation 

4. a series of one page documents illustrating the reasoning in the program 
determining the strongest analogies to the current program for each category of 
supply 

5. a logistics estimate for the operation. 

Appendix C contains sample program execution of the other modules of the 
program. There is a sample interactive session which updates the historical record of 
an operation with actual consumption data. There is a sample interactive session 
which deletes the historical record of an operation from the historical files maintained 
by the program. There is a sample output produced by selecting the print-directory 
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module of the program which lists the unit name, date, and update status for all 
operations in the historical files. Appendix C also contains a sample of the historical 
record for an operation produced by the print-history' module of the program. 

Appendix D is the program implemented in Pascal. Appendix E is a partial 
implementation of the program in Common Lisp. 



II. PROBLEM DEFINITION 



A. TACTICAL LOGISTICS PLANNING TODAY 

In tactical units of the United States Army, the staff officer charged with the 
creation of logistics estimates on behalf of the commander is the G4 S4 officer. A 
typical logistics plan might include estimates for the following categories of supplies: 

1 . water 

2. subsistence 

3. fuel 

4. ammunition 

5. general supplies. 

To calculate estimates for supply items in each of these categories, the G4, S4 uses 
equations contained in Army field manual FM 101-10-1. These equations can be 
thought of as rules. Certain attributes of an operation determine either individually or 
in combination the equation to be used in calculating specific estimates. These 
attributes are contained in a key operational planning document called the operation 
order (OPORDER). The G4 S4 must obtain a draft of the OPORDER or otherwise 
reference these data elements before a logistics plan can be prepared. Attributes which 
directly influence how an operation is conducted and the type and quantity of supplies 
consumed in its execution include the following: 

1. mission to be performed 

2. climate in which the operation is to be conducted 

3. area of the world in which the operation is to be conducted 

4. type, size, and personnel strength of the task force 

5. expected intensity of combat 

6. ration policy during the operation. 

There are many other factors which impact on the conduct of an operation. Current 
Army planning documents, however, use only the six attributes identified above in 
selecting appropriate equations from FM 101-10-1. The G4 S4 manually references the 
aforementioned attributes of an operation and indexes both an equation and a 
planning factor for use in calculating specific supply estimates. These attributes are 
contained in the operation order (OPORDER) for the operation. 
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For example, to calculate the expenditure of 5.56mm rifle ammunition, the 
following steps are taken. First, the mission and anticipated combat intensity of the 
operation are identified. Second, the attributes are used to select the appropriate 
equation and planning factor from the section in F\1 101-10-1 covering ammunition 
estimates. In this case, the general equation to estimate 5.56mm rifle ammunition is: 
ri weapons * planning factor = estimate. 

Maintaining data on the number of rifles in the task force which expend 5.56mm 
ammunition is another task which the logistics planner is charged to perform. The 
same methodology is used for the other estimates. 

The equations used to create the supply estimates are simple and easy to 
understand. The equations make intuitive sense as they are a function of the number 
of rifies in the task force and a single planning factor. The planning factors themselves 
are another subject. There has been much debate regarding their validity. Much of 
the data in FM 101-10-1 was originally based upon experience in World War II and 
Korea. Changes to the data have been made to reflect more recent experience and the 
results of combat modelling and simulation, but distrust of the accuracy of the 
planning factors continues. (Ref. 4] 

The current method of creating estimates has another more serious shortcoming. 
The planning factors used in the simple linear equation model described above yield, at 
best, very generalized estimates. The data does not explicitly account for variable 
factors such as visibility, terrain, and the availability of close air support. Each of 
these impact significantly on the conduct of combat operations and on the rate at 
which supplies are consumed. It is necessary, therefore, that the logistics planner apply 
reasoned judgement in adjusting the estimates to reflect the particular set of attributes 
of the current operation. 

There is no standard policy or guideline for the logistics planner to follow in 
making these reasoned judgements. Every commander hopes to have an experienced 
logistics planner who can rely upon personal experience or insightful after-action- 
reports to provide the basis for adjusting the standard estimates. All too often, the 
commander is without such a key individual. In addition, the commander and the rest 
of his staff continually create contingency and alternative operation plans. These plans 
require that logistics planning be conducted with a corresponding cost in time and 
effort. The logistics planner is seemingly always late in delivering logistics estimates to 
the commander while attempting to produce complete, researched, and well prepared 
plans. 



14 



An additional concern of the tactical logistics planner is the recording and 
retrieval of data on the actual consumption of supplies. A complete accounting of the 
logistically significant data about an operation is valuable in preparing future logistics 
estimates. A logistics estimate of an operation, together with corresponding actual 
consumption data for that operation, support the kind of reasoning described earlier. 
The time and effort it takes to record actual consumption data and link it with its 
associated logistics estimate often frustrates intentions to create complete historical 
records. The result is that such historical records do not exist in many units. When 
new personnel arrive and assume responsibility for logistics planning in the unit, they 
are without the benefit of historical data on which to base their estimates. 

In partial summary, the Army realizes that reliance upon the equations in FM 
101-10-1 will not yield acceptable estimates in all cases. The current method of 
computing estimates is simple to follow, but requires a considerable amount of the 
logistics planner's most precious commodity-time. There is also an acknowledged 
need for applying experience in logistics planning to the job of improving the accuracy 
of these general estimates. Experience is a hard thing to quantify, however, and many 
tactical logistics planners are not experienced. For these reasons, any system which 
significantly assists the logistics planner in creating estimates and performing associated 
tasks without imposing additional requirements would be of great value. 

B. SURVEY OF PREVIOUS RELATED WORK 

Commercially available spreadsheet programs perform the kind of referencing 
and calculations involved in creating logistics estimates as directed in current Army 
planning documents. Spreadsheets have been used in many business applications. 
They are able to adjust previous data to reflect changes in the values of program 
variables. The United States Army Logistics Center has developed several templates 
using a popular spreadsheet program, LOTUS 1-2-3. The templates use this program 
to create logistics estimates with equations and planning factors obtained from FM 
101-10-1 and variables representing the personnel strength and the equipment 
composition of a task force. The templates are intended for use by logistics planners in 
creating estimates for Class I (subsistence) and Class III (POL) supply items. There 
are no templates currently developed to assist the logistics planner in creating logistics 
estimates for supply items in the other categories of supply. 
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The templates have two major limitations. First, each of the templates is written 
to run independently. This means that a logistics planner who desires to run both of 
these programs must run them separately. The estimates generated by the two 
programs must be abstracted onto a single document along with estimates for other 
supply items when creating an overall estimate for the operation being conducted. 
Second, the template used to create these logistics estimates assumes a static task force 
composition. The templates use the authorized numbers of personnel and equipment 
for the unit rather than the actual numbers taking part in the operation. The 
authorization document used for this purpose is the Modified Table of Organization 
and Equipment (MTOE) for the unit. The templates provide a valuable service to the 
logistics planner by automatically completing required paper work for requisitioning 
supplies. The inflexibility of the templates in accepting changes to the task force 
composition, however, causes them to fail to make full use of the power of the 
spreadsheet program, and limits the utility of the templates as an automated planning 
tool. 

There has been little published on the use of analogies in creating logistics 
estimates. Much of the literature in operations research focuses on the use of 
numerical analysis in creating and revising estimates [Ref. 5]. Strictly numeric 
techniques, however, sometimes fail to model and predict physical phenomenon. 
Optimization techniques involving numerical analysis do not work when the result of 
the analysis is a guess or estimate of a future outcome [Ref. 6]. Such techniques are 
best suited to problems where the possible outcomes are known in advance. Logistics 
estimation at the tactical level is not an exact science and is resistant to attempts at 
applying such techniques. Non-numeric reasoning, called heuristic reasoning, has 
proven valuable in prediction and forecasting when numerical analysis has proven 
difficult or unacceptably costly. While the use of heuristics does not guarantee optimal 
solution, it can produce acceptable results. 

Reasoning about the similarities between situations is an interesting subject in 
artificial intelligence research that has promise for assisting the prediction efforts of 
logisticians [Ref. 7], Psychometric literature includes research describing how humans 
search for similarities between previous and new situations in an attempt to exploit 
knowledge about previous situations in order to improve current performance [Ref. 8]. 
These parallel academic research efforts support the research of this thesis in 
investigating the possible use of historical analogies to construct logistics estimates. 



16 



Some situations can be described by attributes or properties. It may be helpful 
to compare the values for certain attributes or properties of one situation with the 
values for the same attributes or properties of other situations in an attempt to 
establish the similarities between them. If similarities between situations exist, then it 
may be possible to infer some information about one such situation from information 
already available about the other. With regard to logistics estimates, the influence of 
certain operation attributes on the actual consumption of individual supply items might 
be able to be inferred from available data on the actual consumption of supplies of 
previously conducted operations. While the use of this technique to improve the 
accuracy of tactical logistics estimates has not been explicitly detailed in technical 
literature, it conceivably offers great potential as an estimation tool for the logistics 
planner. 
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III. PROGRAM DESIGN AND IMPLEMENTATION 

A. MAJOR PROGRAM FUNCTIONS 

The program was designed to assist the tactical logistics planner in performing 
many of the tasks associated with creating logistics estimates. To this end, there are 
five major functions performed by the program. 

The first and most important function is to create a logistics estimate for an 
operation using information supplied by the user in an interactive session and with 
data retrieved from historical files maintained in secondary storage. This function is 
the real heart of the program. It references equations, performs calculations, and 
contains code that reasons about the similarity of operations. The output generated by 
this part of the program is of particular interest and is discussed later in the chapter. 

The second function performed by the program is to update a record of a 
logistics estimate with data on the actual consumption resulting from the conduct of an 
operation. This function would be employed after an operation had already been 
conducted, and supplements or replaces much of the effort spent in preparing logistics 
after-action reports. The value of this function lies not only in its automation of the 
report generation task, but also in the storage of this information in the same data 
structure as the original logistics estimate for easy retrieval and logical representation. 

The third function is to delete from the historical files the record of a previously 
created logistics estimate. Deletions of this sort are desireable when an operation for 
which a logistics estimate has been created is not conducted. If the actual 
consumption data in the record is significantly influenced by a factor which is 
considered an abnormal occurrence, the logistics planner may want to preclude its use 
in future program references by deleting it from the historical files. Another 
implementation might use a boolean flag for this purpose. 

A fourth function is to print a directory with data on all the records of logistics 
estimates in the historical files. This is an important program function because it 
provides the user of the program with visibility over records currently in the historical 
files without using some of the more complex functions of the program. One of the 
data elements displayed in the directory output is whether or not each of the logistics 
estimates has been updated. This provides an easy method for the logistics planner to 
see whether an update needs to be made to a particular logistics estimate. 
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The last function of the program provides the capability of searching through the 
historical files which the program has previously created and prints a one page 
summary of all of the critical information associated with each of the operations. Such 
information includes not only the original logistics estimate, but also actual 
consumption data for each of the items of supplies for which an estimate was prepared. 
This data would be input using the record update function of the program previously 
described. 

Figure 3.1 shows the top level design of the program. Each of the program 
functions described in this section is implemented as a module in the program. 







program 

planner 






log 

estimate 


update 

record 


delete 

record 


print 

directory 


print 

history 



Figure 3.1 Program Top Level Design. 



B. DATA STRUCTURES 

The key design decision with regard to data structures was the manner in which 
all of the information regarding the creation of a logistics estimate would be stored. A 
record called an oprecord (operation record) was chosen. It contains fields which 
describe all of the scenario data used by the program to create a general estimate for 
each of the supply items for which the program creates an estimate. Additional 
scenario data is collected and stored for the purpose of reasoning about the similarities 



19 



between operations. The oprecord also contains a multi-dimensional array named 
consumption which contains information about each of the supply items for which the 
program creates an estimate. This information includes : 

1 . supply item name 

2. general estimate for the supply item generated by performing the calculation of 
equations referenced from Fm 101-10-1 and using planning factors found in 
reference 4 

3. adjustments to this estimate determined by the reasoning and adjustment 
techniques of the program 

4. revised estimate obtained by adding the general estimate and the adjustment 

5. actual consumption of the supply item during the conduct of the operation, if 
such data has been placed into the record. 

Information about the composition of the task force conducting the operation is 
stored in an array called task force. The information contained in this data structure is 
not permanent and is lost after the logistics estimate function of the program has 
completed execution. 

The choices for data structures in Pascal are satisfactory' [Ref. 9j. The 
availability of user-defined file types made file input and output straightforward. After 
programming portions of the program in LISP as part of other course work. LISP 
appears to be at least as desirable a programming language for an application of this 
sort [Ref. 10]. In particular, LISP structures and flavors require fewer variable 
declarations, and results in program code that is easier to read. They also offer no 
temptation to rely on function side effects to assign values to fields in data structures. 
A partial implementation of the program in Common Lisp is included as Appendix E. 

C. CREATING A LOGISTICS ESTIMATE 

1. Input 

The first input expected from the user after selecting the log-estimate module 
of the program is the composition of the task force conducting the operation. An 
example interactive session in which the user supplies the number of each kind of 
weapon and major end item is found in Appendix A. The selection of weapons and 
major end items included in the program was a design decision. A major criterion for 
inclusion was the availability of planning factor data in FM 101-10-1 and other widely 
used planning references [Ref. 4], 

The program then proceeds to query the user about certain attributes 
describing the operation for which the program will create a logistics estimate. 
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Examples of the queries posed to the user are contained in the demonstrations in 
Appendix A and Appendix B. User responses to these queries are stored in the 
operation record (oprecord) identified earlier. 

An important design decision in handling program input from the user was 
reliance on menus. The program is intended to serve as a prototype of an actual 
logistics planning tool. The use of menus reduces the potential for user input errors 
when the program is used in the field where unfamiliar users may enter erroneous 
information. In addition, menus support the use of enumerated types. Enumerated 
types were deemed important in promoting clarity when reading the program and 
studying its design. The cost of using menus is more extensive input procedure coding. 

A special point is made to ensure that the program does not impose any 
additional data gathering requirements upon the logistics planner beyond those 
currently in effect. All of the data requested by the program of the user is contained in 
the operational planning document called the OPORDER (operation order) or its draft 
referred to in Chapter I. The logistics planner can answer all program queries using 
only those sources of information to which he/she has routine accesss. In event that 
the operation order itself is automated, user input of some of this data might not be 
required. 

2. Database Operations and General-estimate Calculation 

The equations and planning factors used in calculating the general logistics 
estimates are implemented as procedures with extensive parameter lists. Information 
about the composition of the task force and certain aspects of the operation scenario 
are used to select the correct equations and variable values. The result of these 
calculations is the general estimate, and is equal to the result obtained by referencing 
FM 101-10-1 and performing the mathematics manually. This portion of the program 
is a single-purpose database algorithm. The computer performs this operation much 
faster, and with greater reliability than can a human. The estimates created by these 
calculations are then stored in the operation record (oprecord) of the logistics estimate. 

A restriction of the program implementation is the use of array indices to 
reference task force data. Knowledge of the data structure containing information on 
the composition of the task force is used in performing the database operations. The 
referencing of this data could be accomplished differently. A Line Item Number (LIN) 
is uniquely associated with every weapon and major end item in the Army inventory. 
Program implementation could be changed to use this attribute to reference task force 
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composition rather than relying on data structure knowledge. This would be especially 
useful in an environment where the type of weapons and major end items were not 
constant. It also supports the principle of information hiding [Ref. 11]. 

3. Reasoning 

The apparently intelligent behavior of the program is the result of the 
reasoning it does about the similarity between the current operation and previous 
operations existing in the historical files maintained by the program. The program 
accomplishes this kind of reasoning by comparing the values for attributes in the 
description of each previous operation with the values for the same attributes in the 
current operation. The program uses a formula to determine the strength of the 
similarity between the two operations. All previous operations are evaluated in this 
manner. Data contained in the operation records of the three most similar previous 
operations will be used in an adjustment algorithm to refine the general estimates 
calculated earlier, yielding more accurate estimates. 

The first phase of the reasoning process identifies all of the previous 
operations that are considered analogous to the current operation. For a previous 
operation to be considered analogous, it must meet the following criteria. 

1. The previous operation has actual consumption data. 

2. The previous operation and the current operation must have the same mission. 

3. The previous operation and the current operation must take place in the same 
area. 

4. The previous operation and the current operation must take place in the same 
climate. 

5. The previous operation and the current operation must take place under the 
same chemical defense posture. 

6. The previous operation and the current operation must have the same combat 
intensity. 

7. The previous operation and the current operation were both first day 
engagements or succeeding day engagements. 

All previous operations are analyzed and a list of analogous operations created. The 
program generates output showing all previous operations meeting this criteria and 
considered analogous to the current operation. Examples of this output are found in 
Appendix A and Appendix B under the heading, Analogy Reasoning. 

The list of analogous operations is treated as a candidate list from which up to 
three operations will be selected as input into an adjustment algorithm. The action of 
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the adjustment algorithm is to reflect knowledge about the past consumption of 
supplies in' adjusting the general estimates obtained through the database 
computations. 

The second phase of reasoning determines which of the candidate operations 
will be selected for the purpose of adjusting estimates. The program performs this 
reasoning by evaluating certain attributes of the scenario descriptions of all of the 
candidate operations, and allocates analogy strength points to operations which have 
the same values for those attribute as does the current operation. The three candidate 
operations with the greatest analogy strength points are selected for use in the 
adjustment algorithm. 

The sophistication of the second phase of reasoning docs not end here. The 
supply items for which the program creates logistics estimates are grouped into five 
categories. The consumption rates for the supply items in each of the categories are 
assumed to be directly influenced by the same set of operation attributes as are the 
other supply items in their category. The program is able to reason about which 
candidate operations are the strongest analogies to the current operation in each of 
these categories independently. This is important since the consumption rates of 
supply items within different categories of supply are influenced to varying degrees by 
similar factors and by different conditions than are supply items in other categories. 
The program adjusts the estimates of supply items in each of the categories by using 
the strongest analogies to the current operation for those attributes influencing 
consumption of supply items in that category. In this way, the program makes the 
most effective use of the data available on previous operations. The five categories of 
supply considered by the program are : 

1 . water 

2. subsistence 

3. fuel 

4. ammunition 

5. general supplies. 

The attributes of an operation which are used in determining the strongest 
analogies in each of these categories are identified in the program output. Factors 
influencing the consumption rates of supplies are not equally significant. The program 
applies weighting factors to each attribute and sums the value of all attributes in 
determining the total strength points for a particular operation. Appendix A and 



Appendix B both contain program output which illustrates this reasoning. Those 
entries in which a "yes" is marked had a match between the attribute value in the 
previous operation and the attribute value in the current operation. The weighting 
given to each of the attributes is found in parenthesis under the attribute name. 

It is important to note the adaptability of this form of reasoning. Any change 
in attributes used in performing the kind of reasoning contained in the program can be 
easily made. Changes to the weighting given to any of the attributes can be changed 
by modifying a single value in the code. The analyst or combat modeler can change 
the action of the program by modifying the identity or the weightings given to 
attributes of the operation to reflect more accurately the influence of operation 
attributes affecting the consumption of supplies. 

4. Adjustment Algorithm 

After the strongest analogies for each of the categories of supply items have 
been determined, an adjustment to the general estimate for each of the supply items 
computed. The adjustment algorithm works this way. 

An error percentage is calculated for each of the analogies with respect to the 
particular supply item being considered. This is done by taking the difference between 
the actual consumption and the general estimate for the supply item and dividing it by 
the general estimate. Once this has been done for each of the analogous operations, 
these error percentages are weighted by the analogy strengths of the operations from 
which they were calculated, and averaged together. The resultant error percentage is 
then multiplied by the general estimate for the same supply item in the current logistics 
estimate. The result is stored as the adjustment to this general estimate. In computing 
the final estimate for the supply item, the adjustment is added to the general estimate. 
Adjustments can be be positive, negative, or zero. 

There are several ways in which the error percentages of the three strongest 
analogies can be averaged. One way is to weight the error percentages equally. 
Another way is to place greater weight on the error percentages obtained from more 
recently conducted operations. The current weighting strategy places greater weight on 
the error percentages of the strongest analogies. Testing of the results of the program 
has not been done, but this weighting strategy is expected to yield more accurate 
adjustments than other strategies. 
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5. Output 

The program output generated by this function of the program has already 
been partially described. The logistics estimate itself is a one page document found in 
both Appendix A and Appendix B. The top half of the document contains a summary 
of the attributes of the operation. Next, a brief summary of the previous analogous 
operations used in the adjustment algorithm is provided. At present, this information 
pertains only to the ammunition adjustments. Ammunition adjustments are considered 
to be of particular interest since the majority of the estimates which the program 
creates are for ammunition supply items. At the bottom of the document is the 
logistics estimate for the operation. The document is otherwise self-explanatory. 

D. UPDATING RECORDS 

This function of the program is critical to the reasoning performed in the creation 
of the logistics estimate. After an operation has been conducted, one of the tasks 
required of the tactical logistics planner is to collect data on all of the supplies 
consumed. Such information is passed up the chain of command to satisfy reporting 
requirements, and retained by the unit conducting the operation for future planning 
purposes. The record update function of the program automates this task, and stores 
the actual consumption data in the same data structure as the original logistics 
estimate for that operation for future reference. An example of an interactive session 
which queries the user for the actual consumption data and acknowledges the update 
of the historical record of that operation is found in Appendix C. 

E. DELETING RECORDS 

Not all of the operations for which logistics estimates are created will actually be 
conducted. In other cases, the actual consumption figures for an operation may be 
suspect or otherwise undesireable for use in adjusting future logistics estimates. The 
usefulness of retaining such records in secondary storage is questionable. The program 
allows the records of such operations to be deleted. An example of an interactive user 
session using this function of the program is found in Appendix C. 

F. PRINTING A DIRECTORY 

This function is useful for the reasons discussed earlier. The information it 
provides is all that is necessary to uniquely identify each of the operations, unless more 
than one operation with the same mission for the same unit on the same day is created. 
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An additional identifier would then be necessary. Aside from listing all of the 
operations residing in secondary storage, this function identifies whether each 
operation has been updated or not. If a record has been updated, then the source of 
the update information is provided. The sources of update information are factual data 
and estimates. An example of the output generated by the print directory function of 
the program is found in Appendix C. 

G. PRINTING HISTORICAL RECORDS 

This function of the program generates one page summaries of all of the 
information available on each of the operations for which it has created a logistics 
estimate. Such a summary is invaluable to a logistics planner. It represents a 
significant effort in researching historical files and presenting the contents of the files in 
a clear and understandable format. This function of the program could be modified to 
produce the historical record of a single specified operation, rather than the records of 
all operations in the historical files. An example of the historical record of an 
operation is found in Appendix C. 
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IV. CONCLUSIONS 



A. PROGRAM STRENGTHS 

The program takes a different approach to the creation of logistics estimates 
from the one currently used by Army logistics planners. It automates the references 
and calculations performed by logistics planners in constructing estimates using Army- 
directed algorithms. The program performs these tasks with significant benefits to the 
logistics planner. The program is fast, reliable, and tireless. It automates many of the 
other administrative tasks performed by the logistics planner in updating the historical 
records of operations and frees the logistics planner to do other things. 

In addition to its automation benefits, the program conducts analysis that was 
heretofore conducted only by experienced or enterprising logisticians. This analysis 
takes the form of reasoning about the similarity between operations, and the evaluation 
of existing historical records. This type of reasoning is essential to improving the 
accuracy of logistics estimates generated by current estimation techniques. The ability 
of the logistics planner to direct the reasoning of his automated aid in revising 
estimates is extremely powerful. It allows the logistics planner to instantly respond to 
changing conditions in operational planning, and assists the logistics planner in 
creating consistent, reasoned estimates even when he/she lacks the requisite personal 
experience to conduct such reasoning. Logistics planners outside the Army can also 
benefit from such a reasoning facility. Inventory’ managers and production planners 
spend considerable time creating and revising estimates. The reasoning contained in 
the program could be adapted to assist them. 

B. PROGRAM LIMITATIONS 

The program does not create estimates for all of the supply items with which the 
logistics planner would be concerned. Likewise, it does not accept information on all 
of the different types and models of weapons and major end items which are currently 
in use in the field. One reason for these obvious limitations is that the program was 
designed as a prototype. The program needed to demonstrate function, not 
completeness. A serious factor affecting future efforts in the development of 
automated logistics planning aids of this type, however, is storage. Principally, the 
concern is main memory availability. The template used to create the task force in the 
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program was arbitrarily chosen. It was certainly a very small subset of the total 
inventory of weapons and major end items in the Army inventory. 

A complete database of all weapons and major end-items in the United States 
Army does exist, and is called the Army Master Data File (AMDF). A program using 
a database of this size would be most appropriate in a war gaming or simulation 
application where memory resources necessary' to support such a database would not 
be a constraint. If the program is implemented as a microcomputer-based system in 
tactical units, then a subset of the AMDF or the use of a task force template like the 
one used in the prototype would be appropriate. 

An improvement of the program might allow the user to specify a set of weapons 
and major end items from the AMDF as one of the program functions. The resulting 
task force template would continue to be used until changed by the user by selecting a 
task force template creation function in the program. The overriding concern is that 
the task force database and template be tailored to meet the particular needs of the 
logistics planner using the program and be supported by the memory’ resources 
available. 

Another limitation of the program is the temporary existence of task force 
composition data. Ideally, this information would be stored permanently with other 
data pertinent to the historical record of an operation. It currently is not. The loss of 
this data prohibits future reference to the composition of the task force involved rn the 
conduct of a particular logistics operation. This limits some of the analysis which can 
be performed about an operation. Information on the composition of a task force may 
warrant inclusion in the historical record. 

Current program design involves reading all of the historical records into main 
memory from secondary storage at the beginning of the program and writing them 
back into secondary storage at the end of the of the user session. The historical files 
take up considerable space when the program has been used to create a large number 
of logistics estimates. A more sophisticated data retrieval technique is necessary to 
reduce this dependency on main memory. If the historical files of several different 
units are stored together or shared in some type of distributed system, the data 
retrieval issue becomes even more important. 

The decision to use Pascal as the implementation language in the prototype was 
made for convenience. Pascal may not be the best choice. Experimentation with 
Common Lisp in implementing portions of the program required fewer variables and 



28 



potentially less storage space than Pascal. In addition, the use of user defined 
structures in Common Lisp appeared to make the program easier to read and 
understand. 

A significant limitation of the program is its rigidity. In particular, the program 
does not allow the user to change the value of an attribute in the description of an 
operation after a record for that operation has been created and placed into the 
historical records. War is unpredictable by nature. There may be times when the value 
of certain attributes in the operation description will not be as planned. It is 
unrealistic to expect the user of the program to recreate an entire logistics estimate 
because of a single change to the operation description. 

In a combat simulation or modelling application of this program, the ability to 
quickly and easily change the value of attributes in the operation description and 
recreate an estimate would be very important. Any anticipated sensitivity analysis 
using this program would require this capability. 

The estimates for Class II, Class IV, Class VII, Class VIII, and Class IX supplies 
are clearly unacceptable for the purposes of the tactical logistics planner. Whiie the 
functions of the program worked well in creating estimates which may be superior to 
those generated by human planners by calculation methods alone, it is the level of 
abstraction at which the estimates were made that is the problem. No one orders such 
supplies by the short ton. Each supply item is uniquely identified by a stock number 
and ordered individually. There must be a more concerted effort by Army logisticians 
to provide planning equations and factors for selected individual supply items in these 
categories. The present level of abstraction serves only the needs of the transportation 
manager concerned with bulk planning data and the logistician at Army level and 
above. 

The reasoning performed by the program represents a new approach to logistics 
planning and has several potential applications which will be discussed later. There is 
the potential however, for becoming overly impressed with the reasoning techniques of 
the program and trying to reason about too many factors at once, or about factors 
whose influence on supply consumption is uncertain. Some factors may certainly 
impact on how a particular operation is conducted, but may not influence the 
consumption of supplies in any consistent and meaningful way. 
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C. PROMISE FOR THE FUTURE 



The program of this thesis could evolve into a valuable tool for the tactical 
logistics planner. Future work needs to be done to validate the approach of this 
research. The program ofFers many potential benefits to the logistics planner. It is fast 
and reliable. Much of the time consuming work now being done by humans can be 
confidently shifted to a computer. References and calculations are routine, 
monotonous, and unexciting aspects of the logistics estimation process. Such tasks are 
often performed poorly or in an untimely manner, especially in a high stress 
environment such as can be expected during combat operations. The program assists 
the logistics planner in the reasoning process as well. For the inexperienced planner, 
the built-in reasoning of the program may provide estimate revisions where they might 
not otherwise be possible. The experienced logistics planner can structure the 
reasoning of the program to reflect more accurately the influence of different operation 
attributes on the consumption rate of supplies. Even at the tactical level, sensitivity 
analysis can be performed by altering the values of various operation attributes and 
creating a new estimate for the revised situation. A final benefit of the program is the 
simplicity and speed with which consumption data is recorded. With the aid of the 
program, this all-too-often-neglected task may be routinely performed. 

The ideas inherent to the creation of an automated logistics planning program 
can be used to design computer aided instruction programs for teaching logistics 
planners how to create logistics estimates. An explanation facility can be added to 
instruct the student as to which refences are made in preparing each of the individual 
supply item estimates in accordance with FM 101-10-1. The same instruction program 
could check student estimates against its own calculations for test operations and 
provide a general equation solutions when the student fails to provide a correct 
response. 

A computer-aided instruction program might also be used to teach the basics of 
reasoning in adjusting logistics estimates. A sample session such as the one detailed in 
the appendices of this thesis might provide physical evidence of the influence that 
certain operation attributes may have on the consumption of supplies. Coupled with 
classroom instruction, such an approach might provide some needed experience to 
junior logisticians. 

Logistics has been poorly integrated into most Army tactical simulations and war 
gaming exercises. Operational planning in these exercises fails to include realistic 
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consideration of logistics requirements. The reason cited most often in explaining this 
deficiency is that logistics estimates are too time consuming to create and slow the pace 
of the training. Use of an automatedlogistics-planning system like this one might be 
able to alleviate this problem to some degree. The program of this thesis clearly 
demonstrates that systems can be designed to create logistics estimates in a timely and 
responsive manner, and integrated into operational planning. It might be possible to 
expand these type of exercises in the future to include the participation of logistics 
planners in a meaningful way. 
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APPENDIX A 

LOGISTICS ESTIMATE DEMONSTRATION #1 

TASK FORCE INPUT 

You will now begin building the task force. 
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M2 INF FIGHTING VEH 
M3 CAV FIGHTING VEH 
M113 PERS CARRIER 
M901 CET VEH ITV 
M125A1 SIMM CARR 
M106A1 107MM CARR 
M102 105MM HOW 
Ml 09 155MM SP HOW 
MHO 8 in SP HOW 
LAUN-LOAD MLRS 
M163 VULCAN AIR DEF 
M730 CHAP AIR DEF 
Ml TANK 105MM 
M6C TANK 105MM 
TOW LAUNCHER 
M2 2 2 DRAGON LNCHR 
M2 50 CAL MG 
M60 MG 
M16A1 RIFLE 
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SCENARIO INPUT 



The following questions describe the operation for which 
the program will create a logistics requirements estimate. 
All questions must be answered as directed. 



Enter the date on which the operation is to commence. 
Use the form dd/mm/yy 

The date of the operation is 24/05/87 
Is this the correct date? 

Enter the number corresponding to your answer. 

1 - yes, date is correct 

2 - no, date is incorrect 



Enter the name of the unit for which this estimate or 
update is being prepared. For example- l/33rd 

The name of the unit is 2/77th 

Is this the correct unit name? 

Enter the number corresponding to your answer. 

1 - ves, unit name is correct 

2 - no, unit name is incorrect 



Enter the number corresponding to the correct tf type. 

1 - armor 

2 - mechanized 

3 - infantry 



Enter the number corresponding to the correct tf size. 

1 - battalion 

2 - brigade 



Enter the number corresponding to the correct mission. 

1 - attack 

2 - defend 



Is this ( the first day of this mission or is this a 
succeeding day of a continuing mission. 

Enter the correct number for your response 

1 - first day 

2 - succeeding day 
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Enter the name of the operation of which this mission 
is a part. For example- D-DAY 

The name of the operation is Reforger 
Is this correct ? 

Enter the number corresponding to your answer. 

1 - yes, operation name is correct 

2 - no, operation name is incorrect 



Enter the number corresponding to the correct area. 

1 - conus 

2 - europe 

3 - korea 



Enter the name of the country in which this mission 
will be conducted. For example- West Germany. 

Be sure to capitalize the first letter in each word 

The name of the country is West Germany 
Is this correct ? 

Enter the number corresponding to your answer. 

1 - yes, country name is correct 

2 - no, country name is incorrect 



Enter the number corresponding to the correct climate. 

1 - hot 

2 - temperate 

3 - cold 



Enter the number corresponding to the correct intensity 

1 - high 

2 - mia 

3 - low 



Do you expect the task force to be in MOPP level three 
or MOPP level four during this mission. 

Enter the correct number for your response 

1 - yes 

2 - ho 



Enter the number corresponding to the correct terrain 

1 - open 

2 - woods 

3 - built up 

4 - mountainous 



Enter the number corresponding to the visibility 

1 - qood 

2 - fair 

3 - pocr 
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Do you plan on significant Air Force ground support? 

Enter the correct number for your response 

1 - yes 

2 - no 



Enter the total number of personnel in the task force. 



Enter the number corresponding to the ration policy 
during the duration of this operation. 



1 - b_c_b 

2 - c c b 
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ANALOGY REASONING 



All of the available data on past operations has been 
evaluated to identify analogies to the current operation. 



A previous operation is considered analogous to the 
current operation if the following conditions are satisfied: 



1. The historical record of the previous operation has 
been updated with actual consumption data. 

2. Both operations have the same mission. 

3. Both operations took place in the same area of the world. 

4. Both operations took place in the same climate. 

5. Both operations took place under the same chemical 

defense mission oriented protective posture. 



6. Both operations involved the same combat intensity. 

7. Both operations were first day engagements or 

succeeding day engagements or the same mission type. 



The following operations are analogous under this definition. 



DATE 


UNIT 


MISSION 


AREA 


CLIMATE 


MOPP 


INTENSITY 


FIRST/SUCCEEDING DAY 


01/04/86 


2/77th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


04/04/86 


2/77th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


06/04/86 


2/77 th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


10/05/86 


3/24 th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


15/05/86 


l/81st 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


03/04/87 


2/77th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


07/04/87 


2/77th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


22/04/87 


2/77th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


05/05/87 


3/24 th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 


16/05/87 


2/77 th 


ATTACK 


EUROPE 


TEMPERATE 


YES 


HIGH 


FIRST 


DAY 
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WATER SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to water supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


COUNTRY 


UPDATE 






NAME 


SOURCE 






(2) 


(1) 


16/05/87 


2/77th 


YES 


YES 


05/05/87 


3/24th 


NO 


NO 


22/04/87 


2/77th 


NO 


YES 


07/04/87 


2/77th 


YES 


NO 


03/04/87 


2/77th 


YES 


NO 


15/05/86 


l/81st 


NO 


YES 


10/05/86 


3/24th 


YES 


NO 


06/04/86 


2/77 th 


NO 


NO 


04/04/86 


2/77th 


NO 


YES 


01/04/86 


2/77 th 


YES 


NO 
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SUBSISTENCE SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to subsistence consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


UNIT 

NAME 


UPDATE 

SOURCE 






(1) 


m 


16/05/87 


2/77th 


YES 


YES 


05/05/87 


3/24th 


NO 


NO 


22/04/87 


2/77th 


YES 


YES 


07/04/87 


2/77th 


YES 


NO 


03/04/87 


2/77th 


YES 


NO 


15/05/86 


l/81s t 


NO 


YES 


10/05/86 


3/24th 


NO 


NO 


06/04/86 


2/77th 


YES 


NO 


04/04/86 


2/77th 


YES 


YES 


01/04/36 


2/77th 


YES 


NO 
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GENERAL SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to general supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


VISIBILITY 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 
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( 2) 


< 1 ) 


(1) 


(1) 
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2/77 th 
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YES 
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2/77 th 
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NO 


NO 
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YES 


NO 


03/04/87 


2/77th 


NO 


NO 


NO 


YES 


YES 


YES 


NO 


15/05/86 


l/81s t 


YES 


YES 


YES 


NO 


NO 


NO 


YES 


10/05/86 


3/24th 


YES 


NO 


YES 


NO 


YES 


NO 


NO 


06/04/86 


2/77 th 


NO 


NO 


NO 


YES 


NO 


YES 


NO 


04/04/86 


2/77th 


YES 


YES 


YES 


YES 


NO 


YES 


YES 


01/04/86 


2/77 th 


YES 


NO 


NO 


YES 


YES 


YES 


NO 
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FUEL SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to fuel supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 






(2) 


(3) 


(1) 


(1) 


(1) 


(2) 


16/05/87 


2/77-th 


YES 


NO 


YES 


YES 


NO 


YES 


05/05/87 


3/ 24th 


NO 


NO 


NO 


NO 


NO 


NO 


22/04/87 


2/77th 


YES 


YES 


YES 


NO 


YES 


YES 


07/04/37 


2/77 th 


YES 


NO 


YES 


YES 


YES 


NO 


03/C4/87 


2/77th 


NO 


NO 


YES 


YES 


YES 


NO 


15/05/86 


l/81st 


YES 


YES 


NO 


NO 


NO 


YES 


10/05/86 


3/24th 


YES 


NO 


NO 


YES 


NO 


NO 


06/04/86 


2/77 th 


NO 


NO 


YES 


NO 


YES 


NO 


04/04/86 


2/77vh 


YES 


YES 


YES 


NO 


YES 


YES 


01/G4/86 


2/77 th 


YES 


NO 


YES 


YES 


YES 


NO 
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AMMUNITION REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to ammo supply consumption. Each of the 
points" of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUMD_SU?PORT 

The three previous operations with the highest number of 
quality points are used in the adjustment algorithm. 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


VISIBILITY 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 






(3) 


(2) 


(1) 


(1) 


(1) 


(1) 


( 1 ) 


16/05/87 


2/77 th 


YES 


NO 


NO 


YES 


YES 


NO 


YES 


05/05/87 


3/24th 


NO 


NO 


YES 


NO 


NO 


NO 


NO 


22/04/87 


2/ 7 7th 


YES 


YES 


YES 


YES 


NO 


YES 


YES 


07/04/87 


2/77 th 


YES 


NO 


NO 


YES 


YES 


YES 


NO 


03/04/87 


2/77 th 


NO 


NO 


NO 


YES 


YES 


YES 


NO 


15/05/86 


l/81st 


YES 


YES 


YES 


NO 


NO 


NO 


YES 


10/05/86 


3/24th 


YES 


NO 


YES 


NO 


YES 


NO 


NO 


06/04/86 


2/77th 


NO 


NO 


NO 


YES 


NO 


YES 


NO 


04/04/86 


2/77th 


YES 


YES 


YES 


YES 


NO 


YES 


YES 


01/04/86 


2/77th 


YES 


NO 


NO 


YES 


YES 


YES 


NO 



41 



TASK FORCE COMPOSITION 



The task force has been built. Task force composition is 



M2 INF FIGHTING VEH 40 
M3 CAV FIGHTING VEH 5 
Ml 13 PERS CARRIER 19 
M901 CBT VEH I TV 5 
M125A1 81 MM CARR 9 
M106A1 107MM CARR 12 
M102 105MM HOW 9 
M109 155MM SP HOW 9 
MHO Sin SP HOW 9 
LAUN-LOAD MLRS 0 
M163 VULCAN AIR DEF 3 
M730 CHAP AIR DEF 3 
Ml TANK 105MM 54 
M60 TANK 105MM 54 
TCW LAUNCHER 26 
M222 DRAGON LMCHR 44 
M2 50 CAL MG 123 
M60 MG 49 
M16A1 RIFLE 3000 
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AUTOMATED LOGISTICS PLAN 



DATE 

UNIT 

TASK FORCE TYPE 
TASK FORCE SIZE 
MISSION 
DURATION 

COMBAT INTENSITY 

OPERATION NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF GROUND SUPPORT 

MOPP LEVEL 3/4 

PERSONNEL STRENGTH 

RATION POLICY 



24/05/87 

2/77th 

ARMOR 

BRIGADE 

ATTACK 

FIRST DAY 

HIGH 

Reforger 

EUROPE 

West Germany 

TEMPERATE 

OPEN 

FAIR 

YES 

YES 

3500 

c_c_b 



HISTORICAL DATA AVAILABLE YES 

DATE 22/04/87 04/04/86 16/05/87 

UNIT 2/77th 2/77th 2/77th 



LOGISTICS ESTIMATE 



SUPPLY ITEM GENERAL EST . ADJUSTMENTS FINAL EST. 



water 


16170 


2556 


18726 


gallons 


B rations 


3500 


-527 


2973 


meals 


MRE rations 


7000 


2564 


9564 


meals 


class II supplies 


6 


1 


7 


ST0NS 


diesel fuel 


69530 


8388 


78418 


gallons 


class IV supplies 


7 


1 


8 


STONS 


tank ammo 105mm 


5616 


-616 


5000 


rounds 


TON ammo 


182 


66 


243 


rounds 


DRAGON ammo 


88 


-18 


70 


rounds 


Howitzer ammo 105mm 


3384 


1137 


4521 


rounds 


Howitzer ammo 155mm 


3366 


-355 


3011 


rounds 


Howitzer ammo 8in 


2592 


520 


3112 


rounds 


Vulcan ammo 20mm 


11952 


4117 


16069 


rounds 


Mortar ammo 81mm 


873 


-163 


710 


rounds 


Mortar ammo 107mm 


1308 


300 


1608 


rounds 


MG ammo .50 caliber 


21525 


-5600 


15925 


rounds 


MG ammo 7.62mm 


21217 


-6046 


15171 


rounds 


rifle ammo 5.56mm 


297000 


3470 


300470 


rounds 


class VII supplies 


26 


4 


30 


STONS 


class VIII supplies 


2 


-1 


1 


STONS 


class IX supplies 


4 


4 


8 


STONS 
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APPENDIX B 

LOGISTICS ESTIMATE DEMONSTRATION #2 

TASK FORCE INPUT 

You will now begin building the task force. 



enter 


the 


number 

40 


of 


enter 


the 


number 

5 


of 


enter 


the 


number 

19 


of 


enter 


the 


number 

5 


of 


enter 


the 


number 

9 


of 


enter 


the 


number 

12 


of 


enter 


the 


number 

9 


of 


enter 


the 


number 

9 


of 


enter 


the 


number 

9 


of 


enter 


the 


number 

0 


of 


enter 


the 


number 

5 


of 


enter 


the 


number 

3 


of 


enter 


the 


number 

54 


of 


enter 


the 


number 

54 


of 


enter 


the 


number 

25 


of 


enter 


the 


number 

44 


of 


enter 


the 


number 

123 


of 


enter 


the 


number 

49 


of 


enter 


the 


number 

3000 


of 



M2 INF FIGHTING VEH 
M3 CAV FIGHTING VEH 
Ml 13 PERS CARRIER 
M901 CBT VEH ITV 
M125A1 81 MM CARR 
M106A1 107 MM CARR 
Ml 02 105MM HOW 
MIC 9 155MM SP HOW 
MHO 8in SP HOW 
LAUN-LOAD MLRS 
M163 VULCAN AIR DEF 
M730 CHAP AIR DEF 
Ml TANK 105MM 
M60 TANK 105MM 
TOW LAUNCHER 
M2 2 2 DRAGON LNCHR 
M2 50 CAL MG 
M60 MG 
M16A1 RIFLE 



in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 


in 


your 


task 


force . 
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SCENARIO INPUT 



The following questions describe the operation for which 
the program will create a logistics requirements estimate. 
All questions must be answered as directed. 



Enter the date on which the operation is to commence. 
Use the form dd/mm/yy 

The date of the operation is 03/03/87 
Is this the correct date? 

Enter the number corresponding to your answer. 

1 - yes, date is correct 

2 - no, date is incorrect 



Enter the name of the unit for which this estimate or 
update is being prepared. For example- l/33rd 

The name of the unit is 1/llth 



Is this the correct unit name? 

Enter the number corresponding to your answer. 

1 - yes, unit name is correct 

2 - no, unit name is incorrect 



Enter the number corresponding to the correct tf type. 

1 - armor 

2 - mechanized 

3 - infantry 



Enter the number corresponding to the correct tf size. 

1 - battalion 

2 - brigade 



Enter the number corresponding to the correct mission. 

1 - attack 

2 - defend 



Is this the first day of this mission or is this a 
succeeding day of a continuing mission. 

Enter the correct number for your response 

1 - first day 

2 - succeeding day 
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Enter the name of the operation of which this mission 
is a part. For example- D-DAY 

The name of the operation is Rising Star 
Is this correct ? 

Enter the number corresponding to your answer. 

1 - yes, operation name is correct 

2 - no, operation name is incorrect 



Enter the number 

1 - conus 

2 - europe 

3 - korea 



corresponding to 



the correct area. 



Enter the name of the country in which this mission 
will be conducted. For example- West Germany. 

Be sure to capitalize the first letter in each word 

The name of the country is Korea 
Is this correct ? 

Enter the number corresponding to your answer. 

1 - yes, country name is correct 

2 - no, country name is incorrect 



Enter the number corresponding to the correct climate. 

1 - hct 

2 - temperate 

3 - cold 



Enter the number corresponding to the correct intensity 

1 - high 

2 - mid 

3 - low 



Do you expect the task force to be in MOPP level three 
or HOPP level four during this mission. 

Enter the correct number for vour response 

1 - yes 

2 - ho 



Enter the number corresponding to the correct terrain 

1 - open 

2 - woods 

3 - built up 

4 - mountainous 



Enter the number corresponding to the visibility 

1 - aood 

2 - fair 

3 - poor 
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Do you plan on significant Air Force ground support? 

Enter the correct number for your response 

1 - yes 

2 - no 



Enter the total number of personnel in the task force. 



Enter the number corresponding to the ration policy 
during the duration of this operation. 

1 - b_c_b 

2 - c_c b 
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ANALOGY REASONING 



Ail of the available data on past operations has been 
evaluated to identify analogies to the current operation. 



A previous operation is considered analogous to the 
current operation if the following conditions are satisfied; 



1. The historical record of the previous operation has 
been updated with actual consumption data. 

2. Both operations have the same mission. 

3. Both operations took place in the same area of the world. 

4. Both operations took place in the same climate. 

5. Both operations took place under the same chemical 

defense mission oriented protective posture. 

6. Both operations involved the same combat intensity. 

7. Both operations were first day engagements or 

succeeding day engagements of the same mission type. 



The following operations are analogous under this definition. 



DATE 


UNIT 


MISSION 


AREA 


CLIMATE 


MO PP 


INTENSITY 


FIRST/SUCCEEDING DAY 


01/02/86 


l/llth 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 


22/02/86 


1/llth 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 


04/03/86 


l/llth 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 


12/01/87 


2/22nd 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 


02/02/87 


3/33rd 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 


23/02/87 


2/22nd 


DEFEND 


KOREA 


COLD 


YES 


MID 


SUCCEEDING 


DAY 
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WATER SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to water supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


COUNTRY 

NAME 


UPDATE 

SOURCE 






(2) 


(1) 


23/02/87 


2/22nd 


YES 


NO 


02/02/37 


3/33rd 


YES 


NO 


12/01/87 


2/2 2nd 


YES 


NO 


04/03/86 


1/llth 


YES 


YES 


22/02/86 


1/llth 


YES 


YES 


01/02/86 


1/llth 


YES 


YES 
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SUBSISTENCE SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to subsistence consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
hiahest number of quality points being chosen for this 
purpose . 

.bf* tiny 



DATE 


UNIT 


UNIT 

NAME 


UPDATE 

SOURCE 






(i) 


(i) 


23/02/87 


2/22nd 


NO 


NO 


02/02/87 


3/33rd 


NO 


NO 


12/01/87 


2/ 22nd 


NO 


NO 


04/03/86 


1/llth 


YES 


YES 


22/02/86 


1/llth 


YES 


YES 


01/02/86 


1/llth 


YES 


YES 
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GENERAL SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to general supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (2) = 2 points for AF_C-ROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


VISIBILITY 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 






(2) 


(2) 


(1) 


(1) 


(1) 


(1) 


(2) 


23/02/87 


2/22nd 


NO 


YES 


YES 


NO 


YES 


YES 


NO 


02/02/87 


3/33rd 


NO 


NO 


NO 


NO 


YES 


NO 


NO 


12/01/87 


2/ 2 2nd 


NO 


NO 


NO 


NO 


YES 


YES 


NO 


04/03/86 


1/llth 


YES 


YES 


YES 


YES 


YES 


NO 


YES 


22/02/86 


1/llth 


YES 


NO 


NO 


YES 


YES 


YES 


YES 


01/02/86 


1/llth 


YES 


YES 


YES 


YES 


YES 


YES 


YES 
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FUEL SUPPLY REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to fuel supply consumption. Each of the 
points* of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 

Up to three previous operations are considered in the 
adjustment algorithm, with those operations with the 
highest number of quality points being chosen for this 
purpose . 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 






(2) 


(3) 


(1) 


(1) 


(1) 


( 2 ) 


23/02/87 


2/22nd 


NO 


YES 


NO 


YES 


YES 


NO 


02/02/87 


3/33rd 


NO 


NO 


NO 


YES 


NO 


NO 


12/01/87 


2/22nd 


NO 


NO 


NO 


YES 


YES 


NO 


04/03/86 


1/1 1th 


YES 


YES 


YES 


YES 


NO 


YES 


22/02/86 


l/llth 


YES 


NO 


YES 


YES 


YES 


YES 


01/02/86 


1/llth 


YES 


YES 


YES 


YES 


YES 


YES 
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AMMUNITION REASONING 



The analogous operations are evaluated on the strength 
of their similarity to the current operation in those 
areas pertinent to ammo supply consumption. Each of the 
points of similarity are weighted independently. 

The weighting of each item is in parenthesis below the 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 

The three previous operations with the highest number of 
quality points are used in the adjustment algorithm. 



DATE 


UNIT 


AF 

GRND_SPT 


TERRAIN 


VISIBILITY 


UNIT 

NAME 


COUNTRY 

NAME 


OPERATION 

NAME 


UPDATE 

SOURCE 






(3) 


(2) 


( 1) 


(1) 


(1) 


(1) 


( 1 ) 


23/02/87 


2/22nd 


NO 


YES 


YES 


NO 


YES 


YES 


NO 


02/02/87 


3/33rd 


NO 


NO 


NO 


NO 


YES 


NO 


NO 


12/01/87 


2/22nd 


NO 


NO 


NO 


NO 


YES 


YES 


NO 


04/03/86 


1/llth 


YES 


YES 


YES 


YES 


YES 


NO 


YES 


22/02/86 


1/llth 


YES 


NO 


NO 


YES 


YES 


YES 


YES 


01/02/86 


1/1 1th 


YES 


YES 


YES 


YES 


YES 


YES 


YES 
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TASK FORCE COMPOSITION 



M2 INF FIGHTING VEH 40 
M3 CAV FIGHTING VEH 5 
Ml 13 PERS CARRIER 19 
M901 CBT VEH ITV 5 
M125A1 SIMM CARR 9 
M106A1 107 MM CARR 12 
M102 105MM HCW 9 
Ml 09 155MM SP HOW 9 
MHO Sin SP HOW 9 
LAUN-LOAD MLRS 0 
M163 VULCAN AIR DEF 5 
M730 CHAP AIR DEF 3 
Ml TANK 105MM 54 
M60 TANK 105MM 54 
TOW LAUNCHER 26 
M2 2 2 DRAGON LNCHR 44 
M2 50 CAL MG 123 
M60 MG 49 
M16A1 RIFLE 3000 
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AUTOMATED LOGISTICS PLAN 



DATE 

UNIT 

TASK FORCE TYPE 
TASK FORCE SIZE 
MISSION 
DURATION 

COMBAT INTENSITY 

OPERATION NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF GROUND SUPPORT 

MOPP LEVEL 3/4 

PERSONNEL STRENGTH 

RATION POLICY 



03/03/87 

1/llth 

ARMOR 

BRIGADE 

DEFEND 

SUCCEEDING DAY 
MID 

Rising Star 

KOREA 

Korea 

COLD 

OPEN 

GOOD 

YES 

YES 

3500 

c_c_b 



HISTORICAL DATA AVAILABLE YES 

DATE 01/02/86 04/03/86 22/02/86 

UNIT 1/llth 1/llth 1/llth 



LOGISTICS ESTIMATE 



SUPPLY ITEM 


GENERAL EST. 


ADJUSTMENTS 


FINAL EST. 




water 


12320 


2004 


14324 


gallons 


B rations 


3500 


2187 


5687 


meals 


MRE rations 


7000 


-2000 


5000 


meals 


class II supplies 


6 


2 


8 


STONS 


diesel fuel 


56257 


8990 


65247 


gallons 


class IV supplies 


7 


-2 


5 


STONS 


tank ammo 105mm 


2268 


332 


2600 


rounds 


TOW ammo 


182 


18 


200 


rounds 


DRAGON ammo 


88 


-8 


80 


rounds 


Howitzer ammo 105mm 


2736 


64 


2800 


rounds 


Howitzer ammo 155mm 


2916 


-166 


2750 


rounds 


Howitzer ammo Sin 


2115 


185 


2300 


rounds 


Vulcan ammo 20mm 


8100 


1900 


10000 


rounds 


Mortar ammo 81mm 


360 


-60 


300 


rounds 


Mortar ammo 107mm 


540 


110 


650 


rounds 


MG ammo .50 caliber 


8856 


144 


9000 


rounds 


MG ammo 7.62mm 


8673 


-673 


8000 


rounds 


rifle ammo 5.56mm 


120000 


-106000 


14000 


rounds 


class VII supplies 


26 


4 


30 


STONS 


class VIII supplies 


2 


0 


2 


STONS 


class IX supplies 


4 


2 


6 


STONS 



55 



APPENDIX C 

SAMPLE OUTPUT FROM OTHER PROGRAM FUNCTIONS 

UPDATING A RECORD 



You will now be asked information about the operation, 
for which you have actual consumption data. 



Enter name of unit which conducted the operation 
For example- l/33rd 

The name of the unit was 2/77th 

Is this the correct unit name? 

Enter the number ( corresponding to your answer. 

1 - yes, unit name'is correct 

2 - no, unit name is incorrect 



Enter the date on which the operation took place. 
Use the form dd/mm/yy 

The date of the operation was 24/05/37 

Is this the correct date? 

Enter the number corresponding to your answer. 

1 - yes, date is correct 

2 - no, date is incorrect 



Enter the number corresponding to the correct mission. 

1 - attack 

2 - defend 



What was the source of the information for this update 

Enter the correct number for your response 

1 - estimate 

2 - factual information 



Enter the actual consumption for each of the supply 
items that follow. If no actual consumption figures 
are available, enter 0 . 



Enter the number of water 
20000 

Enter the number of B rations 
3100 

Enter the number of MRE rations 
8100 

Enter the number of class II supplies 

Enter the number of diesel fuel 
77700 



gallons 

meals 

meals 

STONS 

gallons 
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Enter 


the 


number 

8 


of 


class IV supplies 


STONS 


Enter 


the 


number 

5117 


of 


tank ammo 105mm 


rounds 


Enter 


the 


number 

247 


of 


TOW ammo 


rounds 


Enter 


the 


number 

75 


of 


DRAGON ammo 


rounds 


Enter 


the 


number 

4600 


of 


Howitzer ammo 105mm 


rounds 


Enter 


the 


number 

3040 


of 


Howitzer ammo 155mm 


rounds 


Enter 


the 


number 

2930 


of 


Howitzer ammo 8in 


rounds 


Enter 


the number 
15650 


of 


Vulcan ammo 20mm 


rounds 


Enter 


the 


number 

705 


of 


Mortar ammo 81mm 


rounds 


Enter 


the 


number 

1572 


of 


Mortar ammo 107mm 


rounds 


Enter 


the 


number 

1635 


of 


MG ammo .50 caliber 


rounds 


Enter 


the number 
16000 


of 


MG ammo 7.62mm 


rounds 


Enter 


the number 
300000 


of 


rifle ammo 5.56mm 


rounds 


Enter 


the 


number 

29 


of 


class VII supplies 


STONS 


Enter 


the 


number 

1 


of 


class VIII supplies 


STONS 


Enter 


the 


number 

9 


of 


class IX supplies 


STONS 



The record has been updated. 
Enter c to continue 
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DELETING A HISTORICAL RECORD 



You will now be asked information about the operation 
that you want deleted. 



Enter name of unit which conducted the operation 
For example- l/33rd 

The name of the unit was 2/77 th 

Is this the correct unit name? 

Enter the number corresponding to your answer. 

1 - yes, unit name is correct 

2 - no, unit name is incorrect 



Enter the date on which the operation took place. 
Use the form dd/mm/yy 

The date of the operation was 24/05/87 
Is this the correct date? 

Enter the number corresponding to your answer. 

1 - yes, date is correct 

2 - no, date is incorrect 



Enter the number corresponding to the correct mission. 

1 - attack 

2 - defend 



The record was found and deleted. 



Enter c to continue 
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DIRECTORY 



DATE 



01/04/86 

04/04/86 

06/04/86 

10/05/86 

15/05/86 

03/04/87 

07/04/87 

22/04/87 

05/05/87 

16/05/87 

24/05/87 



UNIT 



2/77th 
2/77th 
2/77th 
3/ 24th 
l/81st 
2/77th 
2/77th 
2/77th 
3/ 24th 
2/77 th 
2/77th 



MISSION 



ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 

ATTACK 



UPDATED 



YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 



Enter c to continue 



59 



HISTORICAL RECORD 



DATE 

UNIT 

TASK FORCE TYPE 
TASK FORCE SIZE 
MISSION 
DURATION 

COMBAT INTENSITY 

OPERATION NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF GROUND SUPPORT 

MOP? LEVEL 3/4 

PERSONNEL STRENGTH 

RATION POLICY 

UPDATE SOURCE 



24/05/87 

2/77th 

ARMOR 

BRIGADE 

ATTACK 

FIRST DAY 

HIGH 

Reforger 

EUROPE 

Nest Germany 

TEMPERATE 

OPEN 

FAIR 

YES 

YES 

3500 

c_c_b 

FACTUAL 



HISTORICAL DATA AVAILABLE YES 



DATE 

UNIT 



22/04/87 

2/77th 



04/04/86 
2/77 th 



16/05/87 

2/77th 



LOGISTICS ESTIMATE 



SUPPLY ITEM 



GENERAL EST. 



ADJUSTMENTS 



FINAL EST. 



ACTUAL CONS. 



water 


16170 


2556 


18726 


20000 


gallc 


B rations 


3500 


-527 


2973 


3100 


meals 


MRE rations 


7000 


2564 


9564 


8100 


meals 


class II supplies 


6 


1 


7 


7 


STONE 


diesel fuel 


69530 


8888 


78418 


77700 


gallc 


class IV supplies 


7 


1 


8 


8 


ST0NS 


tank ammo 105mm 


5616 


-616 


5000 


5117 


rounc 


TOW ammo 


182 


66 


248 


247 


rounc 


DRAGON ammo 


88 


-18 


70 


75 


rounc 


Howitzer ammo 105mm 


3384 


1137 


4521 


4600 


rounc 


Howitzer ammo 155mm 


3366 


-355 


3011 


3040 


rounc 


Howitzer ammo 8in 


2592 


520 


3112 


2930 


rounc 


Vulcan ammo 20mm 


11952 


4117 


16069 


15650 


rounc 


Mortar ammo 81nm 


873 


-163 


710 


705 


rounc 


Mortar ammo 107mm 


1308 


300 


1608 


1572 


rounc 


MG ammo .50 caliber 


21525 


-5600 


15925 


16350 


rounc 


MG ammo 7.62mm 


21217 


-6046 


15171 


16000 


rounc 


rifle ammo 5.56mm 


297000 


3470 


300470 


300000 


rounc 


class VII supplies 


26 


4 


30 


29 


ST0N5 


class VIII supplies 


2 


-1 


1 


1 


STONE 


class IX supplies 


4 


4 


8 


9 


STONE 
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APPENDIX D 

PASCAL PROGRAM 



(*$S30000*) 

program thesis (input , output) ; 



const 

datesize = 8; 
unitsize = 10; 
num_supply_items = 21; 

supolv item_namesize = 19; 
unit^o?_measure_size = 7; 
maxfiles = 20; 
max_analogies = 3; 

operation_name_length= 13; 
country_name_lengtn = 14; 



(*the width of the date field 
(*the width of the unit name field * 

(^number of items of supply for which the 
program generates logistics estimates * 
(*the width of the supply item name field* 
(*the width of the unit of measure field * 
(*number of operations in history files * 
(*max number of analogies used to adjust 
general estimates * 

(*width of operation name field 
(*width of country name field * 



type 

unit_of_measure_string = packed array ( . 1 . .unit_of_measure_size . ) 

char ; 

supply_item_string = packed array ( . 1 . . supply_item_namesize . ) 

char; 



data = record 

supDly item : supply_item_string ; 

general_estimate : integer; 

adjustments : integer; 

final estimate : integer; 

actual^consumption : integer; 

unic ot_measure : unit_of_measure_string 

end; (*en3 record data*) 



of 

of 



consumearray = array ( . 1 . .num_supply_items . ) of data; 



datestring = 

unitstring = 

operationstring = 

countrystring = 

missions = 

areas = 

climates = 

intensities = 

tf__sizes = 

tf_ types = 

terrains = 

durations = 

update sources = 

visibilities = 

ration_policy__type 



packed array (. 1 .. datesize . ) of char; 
packed array (. 1 . .unitsize . ) of char; 
packed array ( . 1 . .operation_name_length. ) of char; 
packed array ( . 1 . . country_name_lengtn. ) of char; 
(attack , defend) ; 

(conus , europe , Korea) ; 

(hot , temperate , cold) ; 

(hi, mid. low) ; 

(bn,bde) ; 

( armor ,mech, inf) ; 

(woods ,open,built^up,mountains ) • 

( first_day , succeeding day); 

( none , estimate , factual) ; 

(good, fair ,poor) ; 

= (b_c_b ,c_c_b) ; (*mix of ration types *) 



analoay_data = record 

analogy_index : integer,; (*index into analogies used 
date : datestring; (*date of analogous operation 

unit : unitstring; (*unit name in analogous operation 

quaiity_pts : integer (*measure of analogy strength 
end;(*ena record analogy_info*) 

analogy_array = array (. 1 . ,max_analogies . ) of analogy_data ; 



analogy_record = record 

num analogies : integer; 
analogies : analogy array 

end;(*end record analogy_info*) 
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oprecord = record 
date 
unit 
mission 
climate 
area 
tf type 
tflslze 
intensity 
moppcondition 
per sonne l__strength 
ration_policy 
AF_ground_spt 

country 
terrain 
update_source 
duration 
visibility 
operationjiame 
consumption 
update 

analogy __info 



datestring; 
unitstring; 
missions ; 
climates ; 
areas ; 
tf_ types ; 
tf_slzes • 
intensities ; 
boolean; 
integer ; 

ration_policy_type ; 
boolean; 
countrystring; 
terrains ; 
update_sources ; 
durations ; 
visibilities { - 
operationstring; 
consumearray ; 
boolean; 
analogy_record 



end;(*ena record oprecord*) 

historytype = array ( . 1 . .maxfiles . ) of oprecord; 
hist__file = file ot oprecord; 



var 

history 

history_f ile 
f ile_counter 
module_code 
finished 



historytype ; 

hist_f ile ; 
integer- 
char ; 
boolean; 



(*array of operations in the history 
files 

^secondary storage file of oprecords 
{^number o? records in history file 
(*user selection of program module 
(*flag to halt program execution 



* 

k 

k 

k 

k 



procedure initialize ; 
var 

ok : boolean; ^validation of acceptable user choice 

answer : char; (*user response about historical records 

begin 
page ; 

finished : = false; 

writelnf 1 This program is designed to assist the tactical unit')- 
wntein( 1 logistics planner at“the battalion and brigade level.')? 
write In ; write In; write In; 

write('Is there an already existing historical file of previous'); 
writeln( ' operations? 1 ) ; 
write In ; write In; 
ok:= false; 

writelnf 1 Enter the number corresponding to your answer. 1 )? 
writelnf 1 1 - yes, there is a file called hist hist_fiie a 1 ); 

writeln(' 2 - no, there is no historical file '); 

repeat 

readln(answer) ; 
writeln? 

writeln(answer ) ; 
f ile_counter := 0; 
if answer - '1' then 
begin 

ok:= true; 

reset (history file , 'hist oprecord a'); 
while not eorXhistory_file; do 
begin 

file counter := file^counter + 1; 
readXhistory_file ,h!story( . f ile_counter . ) ) 
end; 

end 
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* * 



else if answer = '2' then ok:= true 

else writeln('You have made an error in input, try again.') 
until ok = true; 
page 

end; (*end procedure initialize*) 



procedure module_choice ; 
var 

ok s boolean; ^validation of acceptable user choice 

continue_char : char; (*user response to continue with program 

begin 

writeln! ' There are ' , file_counter :2 , ' records in the history files.' 
writeln! ' Under current program parameters, there is storage for '); 
writeln(maxfiles-file_counter :2 , ' additional records.'); 
writeln; 

writelm ' Additional storage can be obtained by either deleting'); 

writelm ' already existing records from the history files or by'); 

writeln( ' changing the program parameters.'); 

write In,- write in; 

writeln( ' Enter c to continue'); 

repeat 

readln(continue_char ) 
until continue_char = ' c ' ; 



page ; 

writeln! 

writeln( 

writeln; 

write In ( 

writeln; 

writeln! 

writeln! 

writeln; 

writeln! 

writeln( 

writeln; 

writeln! 

writeln; 

writeln! 

writeln; 

writeln! 



The program will perform the following tasks.'); 

Enter the number corresponding to the desired function.'); 

1 - create a logistics estimate for an operation.'); 

2 - update the historical file of a previous operation'); 

with user supplied consumption data.'); 

3 - delete the records pertaining to operations for'); 

which the user no longer has any use.') ; 



4 - print the historical files, 

5 - print the directory.'); 



) ? 



6 - quit the program.'); 
writeln ■ wr i te In ; 
ok:= false; 
repeat 

readln(module code); 



fmodule_code = 


'3') 


or !module_code = 


'4' ) 


or 


(module__code = 
begin 

ok:= true; 


1 5 ' 5 


or (module_code = 


' 6 ' ) 


then 



writeln('The module selected was # ' ,module_code) 
end 

else begin 

writeln('you have made an error in input, try again.'); 
writeln 



end; 

until ok = true; 
page ; 

end; ( x end procedure module_choice*) 



) 
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* * 



^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'kk 

MODULE LOGISTICS ESTIMATE 

•k k'kkk'k'kkkkkk kk ***x*x*x **:*::*: kkk kkkkkkk^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ^ 

procedure log_estimate ; 
const 

(*the width of the line item number field*} 
(*the width of the enditem name field *) 
(*the number of end items modelled in this 



LIN^size 


= 6; 


enditem^name_size 


= 19; 


num_endTtems 


= 19; 



program 



0 



type 



LINstring = packed array ( . 1 . . LIN^size . ) of char; 

enditem_nametvpe = packed array ( . 1 . . endltem_name_size . ) of char; 

enditem = record 
LIN 

nomenclature 
quantity 



LINstring; 
enditem_nametype ; 
integer 



end;(*end record enditem*) 

compositiontype = array ( . 1 . .num_enditems . ) of enditem; 



var 



taskforce :compositiontype ; 
newrecord : oprecord; 



(*record containing all the information 
about the components of a task force*) 
(*record containing all the information 
about an operation *) 



procedure build_task_f orce 
var 

i ; integer; 
begin 

writeln( 1 You 



(*index variable for task force items*) 
will now begin building the task force. 



taskforce < 


;.i.) 


taskforce ! 


.i.) 


taskf orce < 


.i. ) 


taskforce! 


.2. ) 


taskforce < 


.2. ) 


taskforce ! 


.2. ) 


taskforce < 


.3.) 


taskforce ! 


! .3. ) 


taskforce . 


1.3. 


taskforce i 


.4. 


taskforce ( 


. Cl . ) 


taskforce 


.4.) 


taskforce ( 


: . 5 . j 


taskforce! 


: .5.) 


taskforce! 


.5.) 


taskforce < 


.6. ) 


taskforce < 


.6. J 


taskforce < 


i.6.) 


taskforce ! 


.7 . ) 


taskforce < 


.7.) 


taskforce < 


.7.) 


taskforce ! 


.8.) 


taskforce < 


.8. 


taskforce! 


.3.) 


taskforce! 


. 9 . ) 


taskforce < 


.9. 


taskforce' 


. 9 . ) 


taskforce! 


.10. 


taskforce i 


.10. 


taskforce! 


.10. 


taskforce! 


.11. 


taskforce i 


.11. 


taskforce i 


.11. 


taskforce i 


.12. 


taskforce i 


.12. 


taskforce i 


.12. 



.LIN ;= 1 J31750 1 
.nomenclature := 
.quantity := 0; 
.LIN := 1 C76335 1 
.nomenclature := 
.quantity ;= 0; 
.LIN := ' D120S7 ‘ 
.nomenclature := 
.quantity := 0; 

.lin := ^essqss' 

.nomenclature ;= 
.quantity ;= 0; 
.LIN := ^DIO 726' 
.nomenclature := 
.quantity ;= 0; 
.LIN := 1 D10741 1 
.nomenclature ;= 
.quantity := 0; 
.LIN := 1 XXKXXX 1 
. nomenclature := 
.quantity := 0; 
.LIN := ' K57667 1 
.nomenclature := 
.quantity := 0; 
.LIN := 1 K56981 1 
.nomenclature := 
.quantity := 0; 
.LIN ;= 1 L44394 1 
.nomenclature := 
.quantity ;= 0; 
.LIN := 1 J96694 1 
.nomenclature := 
:= 0 ; 
' 011668 ' 

.nomenclature ;= 
.quantity := 0; 



. quantity 
.LIN •= 1 r 



1 M2 INF FIGHTING VEH 1 



'M3 CAV FIGHTING VEH 



1 M113 PERS CARRIER 



1 M901 CBT VEH ITV 



1 M125A1 81MM CARR 



1 M106A1 107MM CARR 



1 M102 105MM HOW 



1 M109 155MM SP HOW 



'MHO 8in SP HOW 



LAUN-LOAD MLRS 



M163 VULCAN AIR DEF 



M730 CHAP AIR DEF 
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taskforce (. 13 .) .LIN := 'T13374'; 

taskforce /. 13 .) .nomenclature : = 'Ml TANK 105MM '; 

taskforde /. 13 .). quantity := 0; 
taskforce/ .14. ) .LIN .•= 1 V1310l l ? 

taskforce (. 14 .) .nomenclature := 'M60 TANK 105MM '; 

taskforce /. 14 .). quantity := 0; 
taskforce ( .15.) .LIN := 1 XXXXXX'; 

taskforce (. 15 .! .nomenclature := 'TOW LAUNCHER '; 

taskforce ( . 15 .) .quantity := 0; 
taskforce ( .16. } .LIN := ‘‘XXXXXX 1 ; 

taskforce /. 16 .). nomenclature := 'M222 DRAGON LNCHR 
taskforce/ . 16 .). quantity := 0; 
taskforce (.17.). LIN := "'XXXXXX'; 

taskforce (. 17 .) .nomenclature := 'M2 50 CAL MG '; 

taskforce (. 17 .). quantity •.= 0; 
taskforce ( .18. ) .LIN := 1 XXXXXX I ; 
taskforce .. 18 .: .nomenclature := 'M60 MG 
taskforce 18. ) .quantity := 0; 
taskforce (.19.) .LIN := 1 XXXXXX' ; 
taskforce (. 19 .; .nomenclature := 'M16A1 RIFLE 
taskforce :. 19 .;. quantity := 0; 
for i:= 1 to num_endi terns do 
begin 

write/ 1 enter the number of taskforce/ .i. ) .nomenclature) ; 
writeln/' in your task force. 1 ); 
readln/ taskforce ( . i. ) . quantity) 
writeln/ taskforce ( . i . ) . quantity) 
end; 
page ; 

writeln/ 'the task force has been built, task force composition is'); 
v/ri te In; writeln; write In; 
for i.-= 1 to num_enditems do 
begin 

write ( taskforce ( . i. ) .nomenclature , ' ' ) ; 

writeln/taskforce/ .i. ) .quantity) 
end 

end;(*end procedure buildtaskforce*) 



procedure create_scenario ; 

procedure readdate; 
var 

ok : boolean; 

newdate : datestring; 
answer : char; 
begin 

ok:= false; 
repeat 

‘writeln/ 1 Enter the date on which the operation is to commence.'); 
writeln/ 'Use the form dd/mm/yy'); 
readln/newdate) ; 
writeln; 

writeln/ 'The date of the operation is ', nev/date); 
writeln; 

writeln/ 'Is this the correct date?'); 

writeln/ ' Enter the number corresponding to your answer.'); 
writeln/' 1 - yes, date is correct '); 

writeln/' 2 - no, date is incorrect'),- 

readln (answer) ; 
if answer = '1' then 
begin 

newrecord.date := newdate; 
ok-.= true 
end 

until ok = true; 
writeln ; write In; write In 
end; (*end procedure readdate*) 
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procedure readunit ; 
const 

blanks *= 1 
var 

ok : 

answer 
unitname : 
begin 

ok:= false; 
repeat 
writeln( 



boolean; 

char; 

unitstring; 



name of the unit for which this estimate 
being prepared. For example- l/33rd 1 ); 



unitname) 



‘Enter the 
writeln( ' update is 
readln(unitname) ; 
strconcat (unitname , blanks) ; 
writeln; 

writeln('The name of the unit is 
writeln ;vriteln; 
writeln? ‘Is this the correct unit name? 1 ); 
writelm 1 Enter the number corresponding to your answer. 1 ); 
writelm 1 1 - yes, unit name is correct 1 ' 

writeln(‘ 2 - no, unit name is incorrect 

readln(answer) ; 
if answer = ‘l 1 then 
begin 

newrecord.unit := unitname; 
ok := true 
end 

until ok = true; 
writeln ; write In; write In 
end; (*end procedure readunit*) 



or 



) U I 
!; 



procedure readmission ; 
var 

ok : boolean; 

mission_code : char; 

begin 

writeln( 1 Enter the number corresponding to the correct mission. 1 ); 

writeln(* 1 - attack 1 ) ; 

writeln(‘ 2 - defend '); 

ok:= false; 

repeat 

readln(mission__code) ; 
if mission_code = 1 1 1 then 
begin 

newrecord. mission := attack; 
ok := true 
end 

else if mission_code = '2 1 then 
begin 

newrecord. mission := defend; 
ck:= true 
end 

else writeln('you have made an error in input, try again. 1 ); 
until ok = true; 
writeln ; write In ; write In 
end; (*end procedure readmission*) 



procedure readclimate ; 
var 

ok : boolean; 

climate__code : char; 

begin 

writelnf 1 Enter the number corresponding to the correct climate.'); 
writeln ( 1 1 - hot 1 ) ; 

writelm 1 2 - temperate 

writeln(' 3 - cold '); 
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ok:= false; 
repeat 

readln(climate_code) ; 

if climate_code = 1 1' then 
begin 

newrecord. climate := hot; 
ok:= true 
end 

else if climate_code = '2' then 
begin 

newrecord. climate := temperate ; 
ok := true 
end 

else if climate_code = *3' then 
begin 

newrecord. climate := cold; 
ok := true 
end 

else writeln('you have made an error in input, try again.'); 
until ok = true; 
write In; write In ; write In 
end; (*ena procedure readclimate*) 



procedure readarea; 
var 

ok : boolean; 

area_code : char; 
begin 

writelnf ' Enter the number corresponding to the correct area.'); 

writelnt' 1 - conus 

writelnc' 2 - europe 

v;riteln(' 3 - korea 

ok:= false; 

repeat 

readln(area_code) ; 
if area^code = '1' then 
begin 

newrecord. area := conus; 
ok:= true 
end 

else if area_code = '2' then 
begin 

newrecord. area := europe ; 
ok : = true 
end 

else if area_code = '3' then 
begin 

newrecord. area := korea; 
ok:= true 
end 

else writelnf'you have made an error in input, try again. 1 ); 
until ok = true; 
write In ;writeln; write In 
end; (*end procedure readarea*) 



procedure readtftype; 
var 

ok : boolean; 

tftype_code : char; 
begin 

writelnv 1 Enter the number corresponding to the correct tf type.'); 

writelm 1 1 - armor '); 

writeln^' 2 - mechanized 

writeln(' 3 - infantry ‘); 

ok:= false; 

repeat 

readln( tftype_code) ; 
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if tftype_code = 1 1 1 then 
begin 

newrecord. tf_type := armor; 
ok:= true 
end 

else if tftype_code = '2' then 
begin 

newrecord. tf_type := mech; 
ok:= true 
end 

else if tftype_code = ‘3 1 then 
begin 

newrecord. tf_type := inf; 
ok:= true 
end 

else writeln(‘you have made an error in input, try again. 1 ); 
until ok = true; 
write In .-write In; write In 
end; (*ena procedure readtftype*) 



procedure reaatfsize ; 
var 

ck : boolean; 

tfsize_code : char; 
begin 

writeln( 1 Enter the number corresponding to the correct tf size. 1 ); 

writelm 1 1 - battalion ‘ 

writeln(’ 2 - brigade '); 

ck false; 

repeat 

readln( tfsize_code) ; 
if tfsize_code = ’l 1 then 
begin 

newrecord. tf_size := bn; 
ok:= true 
end 

else if tfsize_code = 1 2 1 then 
begin 

newrecord. tf_size := bde; 
ok:= true 
end 

else writeln('you have made an error in input, try again.’); 
until ok = true; 
writeln; write In ;writein 
end; (*end procedure readtfsize^) 



procedure readintensity ; 

var 

ok : boolean; 

intensity_code : char; 
begin 

writeln( 1 Enter the number corresponding to the correct intensity 1 ) 

writelm 1 1 - hiah '); 

writelnt 1 2 - mid 1 ) ; 

writeln( 1 3 - low 1 ); 

ok:= false; 

repeat 

readln( intensity code) ; 
if intensity_coae = '1' then 
begin 

newrecord. intensity := hi; 
ck:= true 
end 

else if intensity_code = 1 2 1 then 
begin 

newrecord. intensity := mid; 
ok:= true 
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end 

else if intensity_code = '3' then 
begin 

newrecord. intensity := low; 
ok:= true 
end 

else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln,-writeln,-writeln 
end; (*end procedure readintensity*) 



procedure readmopp; 
var 

ok : boolean; 
answer : char; 
begin 

writelnf'Do you expect the task force to be in MOPP level three'),- 
writeln('or MOPP level four during this mission.'); 
writeln ; 

writelm ' Enter the correct number for your response'),- 

writeln ( ' 1 - yes ' ) ; 

writeln (' 2 - no ' ) ,- 

ok:= false; 

repeat 

readln(answer ) ; 
if answer = '1' then 
begin 

newrecord. moppcondition := true ; 
ck:= true 
end 

else if answer = '2' then 
begin 

newrecord. moppcondition := false ,- 
ok:= true 
end 

else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln ,-writeln ,-writeln 
end; (*end procedure readmopp*) 



procedure readpersonnel ; 
const 

maxpersonnel = 10000; 
var 

ok : boolean; 

numpersonnel •. integer; 
begin 

ok:= false; 

repeat 

writeln( ' Enter the total number of personnel in the task force.') 

readln(numpersonnel) .* 

if (numpersonnel > 0) and (numpersonnel < maxpersonnel) then 
begin 

newrecord. personnel strength := numpersonnel; 
ok : = true 
end 

else begin 

write('The number of personnel exceeds program parameters 
writeln( ' Input the number again. ' ) 
end 

until ok = true; 

writeln ,-writeln ,-writeln 
end; (*end procedure readpersonnel*) 
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2 - woods 

3 - built up 1 ) ; 

4 - mountainous 1 ) ; 



procedure readterrain; 
var 

ok : boolean; 

terrain_code : char; 
begin 

writelnf 1 Enter the number corresponding to 
writelm 1 1 - open 1 x 

writelm ' 
writeln( 
writeln( 
ok : — false; 
repeat 

readln( terrain_code) ; 
if terrain_code = *1' then 
begin 

newrecord. terrain := open; 
ok:= true 
end 

else if terrain_code = '2' then 
begin 

newrecord. terrains woods; 
ok := true 
end 

else if terrain_code = 1 3 1 then 
begin 

newrecord. terrain := built_up; 
ok:= true 
end 

else if terrain_code = '4' then 
begin 

newrecord. terrains mountains; 
ok:= true 



end 

else writeln('you have made an error in 
until ok = true; 
write In? write In; write In 
end; (*ena procedure readterrain*) 



procedure readvisibility ; 
var 

ok : boolean; 

visibiiity_code : char; 
begin 

writelnf 1 Enter the number corresponding to 
writelm 1 1 - good 1 ) ; 

v;riteln(‘ 2 - fair ! ); 

V7riteln(' 3 - poor •); 

ok:= false; 

repeat 

readln(visibilitv code) ; 
if visibility_code = '1' then 
begin 

newrecord. visibility := good; 
ok := true 
end 

else if visibility_code = '2' then 
begin 

newrecord. visibility := fair; 
ok:= true 
end 

else if visibility_code = *3' then 
begin 

newrecord. visibility := poor; 
ok?= true 
end 

else writeln('you have made an error in 
until ok = true; 
v;riteln ; write In ; write In 



the correct terrain 1 ) 



input, try again. 1 ) ; 



the visibility 1 ); 



input, try again. 1 ) ; 
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end; (*end procedure readvisibility*) 



procedure readAF_ground_spt ; 
var 

ok : boolean; 
answer : char; 
begin 

writeln('Do you plan on significant Air Force ground support?') 
writeln; 

writeln? 1 Enter the correct number for your response'),- 

writeln? 1 1 - yes ' ) ; 

writeln? ' 2 - no ' ) ,- 

ok:= false; 

repeat 

readln(answer) ; 
if answer = '1' then 
begin 

newrecord. AF_ground_spt := true ,- 
ok:= true 
end 

else if answer = '2' then 
begin 

newrecord. AF_ground_spt := false ; 
ok := true 
end 

else writeln('You have made an error in input, try again.'); 
until ok = true; 
write In; write In; writeln 
end; (*end procedure readAF_ground_spt*) 



procedure readduration; 
var 

ok -. boolean; 

answer : char; 
begin 

writeln? 'Is this the first day of this mission or is this a'); 
writeln? ' succeeding day of a continuing mission.'); 
writeln; 

writeln? ' Enter the correct number for your response'); 

writeln?' 1 - first day'); 

writeln? ' 2 - succeeding day ' ) ; 

ok:= false; 

repeat 

readln(answer) ; 
if answer = '1' then 
begin 

newrecord. duration := first_day; 
ok:= true 
end 

else if answer = '2' then 
begin 

newrecord. duration := succeeding_day ; 
ok:= true 
end 

else writeln? 'You have made an error in input, try again.'); 
until ok = true; 
write In; write In; write In 
end; (*end procedure readduration*) 



procedure readoperation_name ; 
const 

blanks = ' 1 ; 

var 

ok : boolean; 

answer : char,- 
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ooera tion_name : operationstring; 
begin 

ok:= false; 
repeat 

writeln? 1 Enter the name of the operation of which this mission 
writeln('is a part. For example- D-DAY '); 
readln(operation^name) ; 
strconcat(operat:ion_name , blanks) ; 
writeln; 

writeln? 'The name of the operation is ', operation_name) ; 

write In; write In; 

writeln? 'Is this correct ?'); 

writeln? ' Enter the number corresponding to your answer.'); 
writeln? 1 1 - yes, operation name is correct '); 

writeln? 1 2 - no, operation name is incorrect 1 ); 

readln(answer ) ; 
if answer = 1 1 1 then 
begin 

newrecord. operation_name := operation_name ; 
ok:= true 
end 

until ok = true; 
write In .-write In; write In 
end; (*end procedure readoperation_name*) 



procedure readcountry_name ; 
const 

blanks = 1 1 ; 

var 

ok : boolean; 

answer : char; 

country_name : countrystring; 
begin 

ok:= false; 
repeat 

writeln? 1 Enter the name of the country in v;hich this mission ') 
writeln? 1 will be conducted. For example- West Germany. 1 ); 
writeln? '3e sure to capitalize the first letter in each word'); 
readln(country_name) ; 
strconcat ( count ry_name , blanks ) • 
writeln; 

writeln('The name of the country is 1 , country_name) ; 

writeln ; write In; 

writeln? 1 Is this correct ?’); 

writeln? 1 Enter the number corresponding to your answer. 1 ); 
writeln?' 1 - yes, country name is correct 1 ) ; 

writeln? 1 2 - no, country name is incorrect 1 ),- 

readln(answer ) ; 
if answer = '1' then 
begin 

newrecord. country := country_name ; 
ok:= true 
end 

until ok = true; 
writeln : writeln; write In 
end; (*ena procedure readcountry_name^) 



procedure readrationpolicy ; 
var 

ok : boolean; 

answer : char; 
begin 

writeln? 1 Enter the number corresponding to the ration policy 1 ); 

writeln? 1 during the duration of this operation. 1 ); 

writeln ; writeln; 

writeln? 1 1 - b_c_b'); 

writeln?' 2 - c_c_b'); 



ok:= false; 
repeat 

readln(answer) ; 

if answer = '1' then 
begin 

newrecord. ration_policy := b_c_b; 
ok:= true 
end 

else if answer = '2' then 
begin 

newrecord. ration_policy:= c_c_b; 
ok : — true 
end 

else writeln('You have made an error in input, try again.'); 
until ok = true; 
writeln 

end; (*end procedure readrationpolicy*) 



procedure buildconsarray; 
var 



i : integer; (*loop control variable*) 
begin 

newrecord. consumption; . 1 .). supply item := 'water '; 

newrecord. consumption; .1. ) .unit ol^measure := 'gallons'; 
newrecord. consumption^ .2 . ) . suppTy^Item := 'B rations '; 

newrecord. consumption^ . 2 .). uni t^ot^measure := 'meals '; 
newrecord. consumption; .3. ) .supply Item := ' MRE rations '; 

newrecord. consumption; .3. ) .unit ol^measure := 'meals '; 
newrecord. consumption; .4 .). supply Item := 'class II supplies '; 
newrecord. consumption; .4. ) .unit ol^measure .-= 'STONS '; 
newrecord. consumption; . 5 .). supply Item := 'diesel fuel '; 

newrecord. consumption; . 5 .) .unit oljneasure := 'gallons'; 
newrecord. consumption; . 6 .). supply Item := 'class IV supplies '; 
nev/record. consumption; .6. ) .un‘ih ol^measure := 'STONS '; 
newrecord. consumption; .7 .) .supply Item := 'tank ammo 105mm '; 

newrecord. consumption; .7 . ) .unit ol^measure := 'rounds '; 
newrecord. consumption; .8. ) .supply Item := 'TOW ammo '; 

newrecord. consumption; .3. ) .unit ol^measure := 'rounds '; 
newrecord. consumption; .9 .;. supply Item -.= 'DRAGON ammo '; 

newrecord. consumption; .9. ) .unit_oI_measure := 'rounds '; 
nev/record. consumption; . 10 .). supply item := 'Howitzer ammo 105mm' 
newrecord. consumption; . 10 .) .unit ol^measure := 'rounds '; 
newrecord. consumption; . 11 .). supply Item := 'Howitzer ammo 155mm' 
newrecord. consumption; . 11 .) .unit oljmeasure := 'rounds '; 
nev/record. consumption; . 12 .). supply^ltem -.= 'Howitzer ammo 8in ' 
newrecord. consumption; . 12 .) .unit oijmeasure := 'rounds '; 
newrecord. consumption; . 13 .). supply Item := 'Vulcan ammo 20mm ' 
newrecord. consumption; .13 .) .unil ofjmeasure -.= 'rounds '; 
nev/record. consumption; .14. ) .supply Item := 'Mortar ammo 81mm ' 
newrecord. consumption; . 14 .) .unit ol^measure := 'rounds '; 
newrecord. consumption; . 15 .). supply ^Item := ‘Mortar ammo 107mm ' 

newrecord. consumption; .15. ) .unit or^measure -.= 'rounds '; 
newrecord. consumption; . 16 .). supply Item := 'MG ammo .50 caliber' 
newrecord. consumption; .16 .) .unit ol^measure := 'rounds '; 
nev/record. consumption; .17 .) .supply Item .-= 'MG ammo 7.62mm ' 

newrecord. consumption; .17 . ) .unit ol^measure := 'rounds '; 
newrecord. consumption; . 18 .). supply Item := 'rifle ammo 5.56mm ' 

nev/record. consumption; .18. ) .unit ol^measure := 'rounds '; 
nev/record. consumption; . 19 .). supply^ltem := 'class VII supplies ' 
newrecord. consumption; . 19 .) .unit orj-neasure := 'STONS '; 
newrecord. consumption; . 20 .). supply Item := 'class VIII supplies' 
nev/record. consumption^ .20 .) .unit cljmeasure := 'STONS '; 
newrecord. consumption^ .21. ) .supply Item := 'class IK supplies ' 
newrecord. consumption; .21 .) .unit_oI_measure := 'STONS 
for i:= 1 to num_suppiy items do 

newrecord. consumption^ . i. ). actual_consumption := 0 
end; (*end procedure buildconsarray*) 
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begin (*begin of create scenario*) 
page ; 

writeln( 1 The following questions describe the operation for which '): 

writeln(‘the program will create a logistics requirements estimate. 1 ) 

vriteln( 1 All questions must be answered as directed. 1 ); 

wr i t e In ; wr i t e in ; wr i te in ; 

readdate ; 

reaaunit ; 

readtf type ; 

readtfsize ; 

readmission; 

readduration ; 

readcperation_name ; 

reaaarea ; 

readcountry_name ; 

readclimate ; 

readintensity ; 

readmopp ; 

readterrain < - 

readvisibility ; 

readAF_groundlspt ; 

readpersonnel ( * 

readrationpolicy; 

buildconsarray; 

nev;re cord, updaters our ce := none ; 
newrecord. update := false; 
end;(*end procedure create_scenario*) 



procedure create_es timate ; 
var 

i : integer; (*index variable for input into consarray*) 

procedure water_estimate ; 
var 

drinking_requirements : real; 

heat_treatment : real; 

personal_hygiene : real; 

food_preparation : real; 

begin 

case newrecord. climate of 
hot : begin 

if newrecord. moppcondition = true then 
drinking_requirements := 3.5 
else drinking_requirements := 3.0; 
heat_treatment := 0.2; 
personal_hyciene := 0.7; 
if newrecord. ration jjoiicy = b_c_b then 
food_preparation := 1.0 
else foodjpreparation := 0.5 
end; 

temperate : begin 

if newrecord. moppcondition = true then 
drinking_requirements := 3.0 
else drinking_requirements := 1.5; 
heat_treatment := 0.0; 
personal_hygiene := 0.7; 
if newrecord. rationjpolicv = b_c_b then 
foodjpreparation := 1.(5 
else food_preparation := 0.5 
end; 

cold : begin 

if newrecord. moppcondition = true then 
drinking_requirements := 2.0 
else drinking_requirements := 2.0; 
heat_treatment := 0.0; 
personal_hygiene := 0.7; 
if newrecord. ration_policy = b_c_b then 
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food preparations 1.0 
else foo"cLpreparation : = 0.5 
end 

end; (*end case statement*) 

newrecord.consumption( . 1 . ) . general_estimate := 

round( (drinking_reguirements + heat_treatment + personal_hygiene + 
roodjpreparation)* 1.10 * newrecord. personnels trengtn; 
end; (*end procedure water_estimate*) 



procedure class_I_estimate ; 
begin 

if newrecord. ration_policy = b_c_b then 
begin 

newrecord. consumption ( . 2 . ) . general_estimate := 
(newrecord. personnel_strength * 2); 
newrecord. consumption( .3 . ) . general_estimate := 
newrecord. personnel strength 

end 

else 

begin 

newrecord. consumption( .3 . ) . general_estimate := 
newrecord. personnel strength * 2; 
nev;record. consumption (i 2 . ) . general_estimate : = 
newr ecord. per sonne l_strength 

end 

end; (*end procedure class_I_estimate*) 



procedure compute_general_supplies (consumption_array_index : integer • 

consumption_factor -.real) ; 

begin 

newrecord. consumption( .consumption array_index. ) .general estimate := 
round( (newrecord. personnels trengtK * consumption_fac torj / 2000) 
end; (*end procedure compute_general_supplies*; 



procedure diesel_fuel estimate; 

(*general formula useH = for each weapon , take the sum of the following 

# weapons * #hrs_idle * consumption_idle + 

# weapons * #hrs_xcntry * consumption_xcntry + 

# weapons * #hrs_2ndras * consumption_2nards . 

Then sum all of these for total diesel fuel required. 

Note: the fuel estimate for 105mm towed howitzer is for a M35 vehicle 

operating 24 hours *) 



begin 

case newrecord. area of 

korea : newrecord. consumption ( . 5 . ) . genera 

round(taskforce( . 1 .) .quantity * 
taskforce ( . 1 . ) . quantity 
taskforce ( . 1 . ) . quantity 
taskforce(.2.) .quantity 
taskforce ( . 2 . ) . quantity 
taskforce ( .2 . ; .quantity 
taskforce ( . 3 . ) . quantity 
taskforce (. 3 .) . quantity 
taskforce ( .3 . ) . quantity 
taskforce( .4. ) .quantity 
taskforce ( .4 . ) . quantity 
taskforce ( .4 . ) .quantity 
taskforce (. 5 .) . quantity 
taskforce(.5.). quantity 
taskforce ( . 5 . ) . quantity 
taskforce ( .6. ) .quantity 
taskforce (. 6 .) . quantity 
taskforce; .6. ; . quantity 
taskforce ( . 7 . ) . quantity 
taskforce ( .8. ) .quantity 



l_estimate := 
3.0 * 6.4 + 

* 5.5 * 18.0 + 

* 5.5 * 8.6 + 

* 3.0 * 6.4 + 

* 5.5 * 13.0 + 

* 5.5 * 3.6 + 

* 3.1 * 1.0 + 



: k 


5.5 


k 


8.6 


+ 


* 


5.5 


k 


10.3 


+ 


* 


3.0 


k 


1.0 


+ 


* 


5.5 


k 


8.6 


+ 


* 


5.5 


k 


8.9 


+ 


* 


4.1 


k 


1.0 


+ 


; k 


5.0 


k 


8.6 


+ 


* 


5.0 


k 


10.3 


+ 


: k 


4.1 


k 


1.0 


+ 


•k 


5.0 


k 


10.0 


+ 


k 


5.0 


k 


13.3 


+ 


*24.0 


k 


0.2 


+ 


k 


4.1 


k 


1.0 


+ 
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europe 



conus : 



taskforce s 
taskforces 
taskforces 
taskforces 
taskforce s 
taskforce < 
taskforce s 
taskforces 
taskforce ■ 
taskforce i 
taskforce i 
taskforce ( 
taskforce 
taskforce ( 
taskforce S 
taskforces 
taskforces 
taskforce S 
taskforces 
taskforce S 
newr e cord. cons umpt: 
round ( taskforce ( . 

taskforces 
taskforce < 
taskforce ( 
taskforces 
taskforce S 
taskforce S 
taskforce S 
taskforce ( 
taskforce S 
taskforce < 
taskforce < 
taskforce < 
taskforce ( 
taskforce s 
taskforce < 
taskforce S 
taskforces 
taskforce S 
taskforce < 
taskforce S 
taskforce < 
taskforce < 
taskforces 
taskforces 
taskforces 
taskforce ( 
taskforce < 
taskforce < 
taskforces 
taskforce s 
taskforce ( 
taskforce < 
taskforce ( 
taskforce s, 
taskforces 
taskforce ( 
taskforce ( 
taskforces 
taskforce ; 
newrecord.consumpt] 
round ( taskforce ( . 

taskforce S 
taskforce S 
taskforce < 
taskforce < 
taskforce < 
taskforce s 
taskforces 



6.0 

5.5 

6.5 

3.6 

6.0 

5.0 
4 . C 

4.5 

4.1 

6.0 

5.5 

4.0 

6.0 

5.5 



11.8 

16.1 

1.6 

12.5 
14.3 

1.0 

6.2 

8.9 

1.0 

5.2 

13.0 
0.5 

1.3 

2.6 

10.8 

56.6 

44.7 

2.0 

28.1 

35.7 



* s 



.quantity 
. quantity 
. quantity 
. quantity 
. quantity 
.“quantity 
.quantity 
.quantity 
.quantity 
.quantity 
.quantity 
. quantity 
. quantity 

.quantity 

.quantity * 5.2 
.quantity * 3.3 
.quantity * 3.4 
.quantity * 4.6 
.quantity * 6.5 
/.quantity * 4.6 - jj. 
.5 . ) .general_estimate := 
.quantity * ° A * * * 

' "quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantitv 
. quantity 
. quantity 
.quantity 
.quantity 
. quantity 
. quantity 
s .quantity 
.quantity 
. quantity 
.quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
.quantity 
. quantity 
.quantity 



+ 

+ 

X 

+ 

+ 

+ 

+ 

+ 

X 

+ 

+ 

+ 

+ 

+ 

+ 

X 

+ 

+ 

+ 

) ; 



3.0 
f 5.5 
f 5.5 

3.0 
5.5 
5.5 
3.0 
5.5 
5.5 

3.0 
5.5 
5.5 

4.0 

5.0 

5.0 

4.0 

5.0 

5.0 

24.0 

4.0 

6.0 

5.5 

4.0 * 

6.0 * 

5.5 * 
5.0 * 

5.0 * 

4.5 * 

4.0 * 

6.0 * 

5.5 * 

4.0 * 

6.0 

5.5 
5.0 

6.5 
5.0 

4.5 

6.5 

4.5 



6.4 + 
18.0 + 
8.6 
6.4 
18.0 
8.6 
1.0 

3.6 
10.3 

1.0 

8.6 
8.9 
1.0 
8 . 6 

10.3 

1.0 

10.0 

13.3 
0.2 
1.0 

11.3 
16.1 

1.6 

12.5 

14.3 
1.0 
6.2 
8.9 
1.0 

5.2 

13.0 
0.5 

1.3 

2.6 

10.8 

56 . 6 

44.7 

2.0 

28.1 



. 5 . ) .gene raises timate := 

— -ir r\ r A 



35.7 ) ; 



. quantity 
) . quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 
. quantity 



0 

5.5 * 
5.5 * 

3.0 * 
5.5 * 
5.5 * 

7.0 * 
6.3 * 



6.4 + 
18.0 
8.6 
6.4 
13.0 
8.6 
1.0 
8.6 
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taskforce (, 3 . ). quantity * 1.9 
taskforce! .4. ) .quantity * 3.0 
taskforce! .4 .). quantity * 5.5 
taskforce ( .4 .). quantity * 5.5 
taskforce (. 5 .). quantity * 5.0 
taskforce (. 5 .). quantity * 3.3 
taskforce !. 5 .) .quantity * 1.6 
taskforce! .6. ) .quantity * 5.3 
taskforce! .6 .) .quantity * 3.1 
taskforce (. 6 .). quantity * 4.3 
taskforce! .7 . ) .quantity *24.0 
taskforce (. 8. ). quantity * 6.2 
taskforce^ .8. ) .quantity * 1.9 
taskforce t. 3 .). quantity * 2.9 
taskforce! .9 .) .quantity * 4.1 
taskforce! .9. > .quantity * 1.9 
taskforce !. 9 .). quantity * 4.1 
taskforce! .10 . ) .quantity * 5.0 
taskforce !. 10 .). quantity * 4.0 
taskforce! . 10 .) .quantity * 4.5 
taskforce !. 11 .). quantity * 2.4 
taskforce (. 11 .). quantity * 7.2 
taskforce !. 11 .) .quantity * 4.3 
taskforce <. 12 .). quantity * 4.0 
taskforce ;. 12 .). quantity * 6.0 
taskforce !. 12 .). quantity * 5.5 
taskforce (. 13 .). quantity * 5.2 
taskforce (. 13 .). quantity * 3.3 
taskforce (. 13 .). quantity * 3.4 
taskforce (. 14 .). quantity * 4.2 
taskforce! . 14. ) .quantity * 8.5 
taskforce( . 14. ) .quantity * 2.9 
end* (*end case statement*) 
end; (*end procedure diesel_fuel_estimate*) 



* 
* 
: k 
■k 
■k 
-k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 



10.3 + 
1.0 + 
8.6 + 

8.9 + 
1.0 + 
8.6 + 

10.3 + 
1.0 + 

10.0 + 

13.3 + 
0.2 + 
1.0 + 

11.8 + 
16.1 + 
1.6 + 

12.5 + 

14.3 + 
1.0 + 
6.2 + 

3.9 + 
1.0 + 

5.2 + 

13.0 + 
0.5 + 

1.3 + 
2.6 + 

10.3 + 

56.6 + 

44.7 + 
2.0 + 

23.1 + 

35.7 ) 



procedure compute_ammo ( cons_num , num_weapons , ha , hd , ma , md , la , Id : integer ) ; 
begin 

case newrecord. intensity of 

hi :case newrecord. mission of 

attack .* newrecord. consump t ion ( .cons_num. ) . genera l_estimate : = 
num_weapons * ha; 

defend : newrecora. consumption ( . cons_num. ) . general_estimate := 
num_weapons * hd; 

end; 

mid .-case newrecord. mission of 

attack : newrecord. consumption( .cons_num. ) . general_estimate := 
num_v;eapons * ma; 

defend : newrecora. consumption( . cons_num. ) . general_estimate := 
num_weapons * md; 

end; 

low :case newrecord. mission of 

attack .* newrecord. consumpt ion ( .cons_num. ) . general_estimate s = 
num_weapons * la; 

defend : newrecora. consumption( .cons_num. ) . general_estimate := 
num_weapons * Id; 

end 

end (*end case statement*) 
end; (*end procedure compute_ammo*) 



procedure adjust_estimate ; 
const 

max_candidates = 10; (*max number of candidate analogies *) 

type 

candidate_info = record 

index_num : integer; (*index into history array of records 

strength_pts : integer; (*measure of analogy strength 
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used : boolean (*used in adjustment analogy selection *) 

end;(*end record candidate_info*) 

candidates = array ( . 1 . .max_candidates . ) of candidate_info ; 
var 

i, (*loop control var into analogies *) 

aajustment_index, (*looo control var into consumption *) 

num_candidates , (*number of analogous records *) 

index -.integer; (*index into the history files *) 

analogy_candidate : candidates ; (^candidate records for adjustment *) 



function analogous (index rinteger) 
begin 

with history( . index. ) do 
begin 

if (update 

(moppcondition 
(mission 
(intensity 
(climate 
(area 
(duration 

else analogous := false; 
end 

end; (*end function analogous*) 



boolean; 



= true) and 

= newrecord. moppcondition) 
= newrecord. mission) and 
= newrecord. intensity) and 
= newrecord. climate) and 
= newrecord. area) and 

newrecord. duration) then 



and 



analogous := true 



procedure adjust (i: integer); 
var 

sum_error : real; 

sum^. quality ots : real; 
anaTogy_count : integer; 

begin 

sum_error:= 0; 
sum_qualityjpts :=0 ; 
for analogy_count := 1 to newrecord. analogy _info . num_analogies do 
if histo‘ry( .newrecord. analogy_info . analogies ( . analogy _count. ) . 

analogy_index. ) .consumption ( .i. ) . general_estimate > 0 then 
begin 

sum_qualityj?ts := s um_qua lityjpts + 

newrecord. analogy_inf o . analogies ( . analogy_count . ) . quality jots ; 
sum_error := sum_error + 

(newrecord. analogy_info . analogies ( . analogy j:ount . ) . quality jots 
*( (history ( .newrecord. ana logy_info . analogies ( . analogy_count7) . 
analogy_index. ) . consumption( .i. ) .actual consumption - 
history (. newrecord. analogy _jnfo . analogies f\ analogy_count . ) . 

analogy_index . ) . consumption ( . i. ) . general_estimate ) / 
history (. newrecord. ana logv^info . analogies ( . analogy_count . ) . 
analogy _index. ) . consumption ( . i. ) . general_estimate) ) 

end; 

newrecord. consumption ( . i . ) . adjustments := 

round ( newrecord. consumption( .i. ) . general_estimate * 

(sum error / sum qualityjpts ) ) 
end; (*end proceHure adjust*7 



(*sum of errors in analogies used * 
(*sum qlty pts in analogies used * 
(*loop control variable * 



function compute_strength(af , vis , ter , update , entry , unit , opname , af_wt , 

vis_w 1 , ter j/t , upda te_w t , cntry_wt , unit_wt , 
opname_wt, Index : integer) : integer; 

var 

totaljpts : integer; (*total number of strength points *) 

begin 

totaljpts:= 0; 

if (unit = 1) and (newrecord. unit = history (. index. ). unit) 
then total pts := totaljpts + unit_wt; 
if (update = f) and (history (. index. ) .update_source = factual) 
then totaljpts := totaljpts + update_wt; 
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if (entry = 1) and (newrecord. country = history( . index. ) .country) 
then total_pts:= total ots + entry wt; 
if (ter = 1) and (newrecord. terrain = Tiistory( . index. ). terrain) 
then total_jpts := total_pts + ter_wt; 
if (opname = 1) and (newrecord. operation_name = history( . index. ) 

. opera tion_name) then total_pts:= total_pts + opname wt; 
if (at = 1) and (newrecord. AF_ground_spt = history (. index. ) 

.AF_ground_spt) then to taints := total_pts + ar_wt; 
if (vis = 1) ana (newrecord. visibility = history (. index. ) .visibility) 
then total__pts:= total_pts + vis_wt; 
computers trength := total_pts 
end;( A ena function compute_strength*) 



function pickjoes t_analogy : integer ; 
var 

strongest_analogy , (*index of strongest analogy 

analcgy_candidate_num , (*index into analogy candidate 

j, (*loop control vanaEle 

max_strength : integer; (*maximium analogy strength 

begin 

strongest_analogy := 0; 
max_strength:= -1; 
for j := 1 to num_candi dates do 
begin 

if (analcqy_candidate( . j . ) .used = false) and 

(analogy_candidate ( . j . ) . strength_pts > max_s trength) then 
begin 

max_s trength := analogy_candidate ( . j . ) . strength_pts ; 

strongest_analogy := analogy_candidate ( . j . ) . index_num; 
analogy_candidate_num:= j 
end; 

end; 

analogy ^candidate ( . analogy_candidate_num. ) .used:= true; 
pick_best_analogy := strongest analogy; 
ena;(*end function pickjoes t_analogy*) 



k 

array * 

k 



(*loop control variable 



procedure print_analogies ; 
var 

i integer; 
begin 
page ; 

write In ; write In; write In; write In; 
writeln ( 1 ANALOGY REASONING' ) ; 

wr ite In; write In; write In; write In; write In; 

writelnf'All of the available data on past operations has been '); 
writeln( ' evaluated to identify analogies to the current operation, 
writeln; 

writeln('A previous operation is considered analogous to the'); 

•write ( 1 current operation if the following conditions are '); 
writeln( ' satisfied: 1 ) ; 
writeln; 

writelnj' 1. The historical record of the previous operation has 1 ); 



); 



been updated with actual consumption data. 
Both operations have the same mission.'); 



writeln(' been updated with actual consumption data.'); 

writeln; 
writeln( 
writeln; 

write (' 3. Both operations took place in the same area '); 

writeln('of the world.'); 

writeln; 

4. Both operations took place in the same climate.'); 



writeln( ' 
writeln ; 
writelni ' 
writeln ( ' 
writeln; 
writeln ( ' 
writeln; 



5. Both operations took place under the same chemical'); 
defense mission oriented protective posture.'); 

6. Both operations involved the same combat intensity.'); 
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writeln(‘ 7. Both operations were first day engagements or'); 
writeln(‘ succeeding day engagements of the same mission type. 1 ) 

write In; write In ; write In; write In; write In ; 

write ('The following operations are analogous under this '); 
writeln( 1 definition. 1 ) ; 
write In; write In; write In ; 



DATE 

' INTENSITY 



write ( 
writeln( 
write ( 1 
writeln( 

write ( 1 

writeln( 1 

writeln; 

if num_candidates > 0 then 
begin 

for i:= 1 to file_counter 
if analogous (i) then 
begin 



UNIT MISSION AREA 
FIRST/SUCCEEDING DAY' ) ; 



) 



) 



CLIMATE MOPP 1 ) ; 



); 



) 



do 



write (history( .i. ) .date 
write (history ( . i. ) . 



unit} ; 
mission 
1 ATTACK 
'DEFEND 



)? 



of 



i; 



.area of 
1 CONUS 
1 EUROPE 
' KOREA 



case historyt . i. j . 
attack : write ( 
defend : write ( 
end; 

case history( . i . ) 
conus : write( 
europe : write! 
korea : write ( 
end; (*end case statement*) 
case history (. i. ) .climate of 
hot : write ('HOT 

temperate : write ( 1 TEMPERATE 

cold : write ('COLD 

end;(*end case statement*) 
if history (. i. ) .moppcondition = true then 
write (' YES f ) 

else write ( 'NO 1 ) ; 

case history( . i. ). intensity of 
hi : write ( ' HIGH 1 ) ; 

mid : write ( ' MID ‘ ) ; 

low : write ('LOW '); 

end; (*end case statement*) 

case history( . i. ) .duration of 

f irs t_day : writeln( 1 FIRST DAY' ) ; 

succeeding_day : writeln( 1 SUCCEEDING DAY'); 

end;(*end case statement*) 
writeln 
end 

end 

else begin 

~ v;riteln;writeln;writeln- 

write ('There are no analogous operations in the history '); 
writeln('in the history files. 1 ; 
end; 

md; (*end procedure print_analogies*) 



procedure print_water_reasoning ; 
var 

i : integer; (*loop control variable *) 

begin 
page; 

write In ; write In ; write In; write In; 

writeln ( 1 WATER SUPPLY REASONING'); 

v;riteln;v;riteln;writeln;writeln ;v;riteln; 

writeln('The analogous operations are evaluated on # the strength 1 ); 
writelnc'of their similarity to the current operation in those 1 ); 
wrizeln( ' areas pertinent to water supply consumption. Each of the ' ) ; 
writeln( ' points of similarity are weighted independently. 1 ); 
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writeln; 

writeln? 

writeln( 

writeln; 

writeln ' 

writeln 

writeln 

writeln 



The weighting of each 
item name. i.e. (3) = 



item is in parenthesis below the 
3 points for AF_GROUND_SUPPORT 1 ) ; 



Up to three previous operations are considered in the 1 
adjustment algorithm, with those operations with the ') 
highest number of quality points being chosen for this 
purpose • 1 } ; 



>; 



) ; 

'* ) ; 



writeln ; write In; write In; write In; write in ; 
writeln? ‘ 
writeln? 
writeln? 
writeln? 
writeln • 
writeln ? 
writeln? 

write In; writeln; 
for i:= 1 to num_candidates do 
begin 

write (history ( . anaiogy_candidate ( .i.) . index_num. ) . 
write (history? . analogy_candidate ? . i. ) . index_num. ) . 
if history (. analogy_candidate (. i .). index. N 



DATE 


UNIT 


COUNTRY 


UPDATE ' 






MANE 


SOURCE ' 
1 






(2) 


(1) 



!; 



newrecord. country 
else write ( ' "" 



date , ' 
_ . unit , 1 

num. ) .country = 






) 



then write ( 'YES 
, NO ' 1 ) ; 

if history( . analoay candidate ( .i. ) .index_num. ) .update_source = 
factual then writeln! 1 YES 1 ) 
else writeln( 1 NO 1 ); 
writeln 

end;(*end fcr loop’') 

end;(*end procedure print_water_reasoning*) 



procedure print_subsistence_reasoning; 
var 

i ; integer; (*loop control variable 

begin 
page ; 

v;riteln;writeln ; writeln; write In; write In ; 

writeln( 1 SUBSISTENCE SUPPLY REASONING'); 

wr ite In; write In; writeln ; writeln; 



writeln { 

writelni 

writelr.( 

writeln( 

v;riteir.; 

writeln l 

writeln( 

writeln ; 

writeln ' 

writeln 

writeln 

writeln 



The analogous operations are evaluated on the strength 1 ); 
of their similarity to the current operation in those 1 ); 
areas pertinent to subsistence consumption. Each of tne 1 ) 
points of similarity are weighted independently. 1 ); 

The weighting of each item is in parenthesis below the 1 ) ; 
item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT 1 ) ; 



Up to three previous operations are considered in the '); 
adjustment algorithm, with those operations with the '); 
highest number of quality points being chosen for this '); 
purpose . ' ) ; 

writeln; write In ; write In; writeln; writeln ; 
writeln( ' 
writeln 
writeln 
writeln . 
writeln; 
writein( 
writeln( 

writeln ; writeln; 
for i:= 1 to num_candidates do 
begin 

write (history! . analogy _candidate( . i. ) .index_num. ) .date, ' ' ) ; 

, J " ’ . i. ) .index_num.) .unit, ‘ 



DATE 


UNIT 


UNIT 


UPDATE 1 






NAME 


SOURCE ; 






(i) 


(i) 






write(historv( . analogv_candidate ( .i. ) .index_num. ) .unit, 1 ' ) 

if history! .analogy candidate! .i. ) .index_num. ) .unit = 
newrecord. unit then write! 'YES ') 

else write! 1 NO 1 ) ,• 

if history! . analogy _candidate( .i. ) .index_num. ) .update_source 
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factual then writeln! ' YES ' ) 
else writeln!' NO'),- 
writeln 

end;(*end for loop*) 

end; (*end procedure print_subsistence reasoning*) 



procedure print_fuel_reasoning; 
var 

i : integer; (*loop control variable 

begin 
oage ; 

wr itein; writeln ; writeln ; write In; writeln ; 

writeln ( 1 FUEL SUPPLY REASONING'); 

writeln ;writeln;writeln;writeln ; 

writeln! 'The analogous operations are evaluated on the strength'); 
writeln! 'of their similarity to the current operation in those 1 ); 
writeln! ' areas pertinent to* fuel supply consumption. Each of the'); 
writeln( ' points of similarity are weighted independently.'); 
writeln; 

writelni 'The weighting of each item is in parenthesis below the '); 
writeln! ' item name. i.e. (2) = 2 points for AF_GROUND_SUPPORT 1 ) ; 
writeln; 

writeln! 'Up to three previous operations are considered in the '); 
writelni ' adjustment algorithm, with those operations with the '); 
writelni ' highest number of quality points being chosen for this '); 
writein( ' purpose .'); 

writeln; write In ;v;r itein ; writeln ; writeln ; 

write ( 1 ' ) ; 

writein( ' ' ) ; 

writeC DATE UNIT AF TERRAIN '); 

writeln ( ' UNIT COUNTRY OPERATION UPDATE'); 

write(' GRND_S?T '); 

writeln ( 'NAME NAME NAME SOURCE’); 

write ( 1 1 ) ; 

writeln ( 1 1 ) ; 

writeln; 

write ( 1 (2) (3) 1 ) ; 

writelnC (1) (1) 1) (2) '); 

writeC 1 ) ; 

writeln( 1 1 ) ; 

writeln; write In; 
for i:= 1 to num_candidates do 
begin 

write fhistory( . analogy_candidate ( .i. ) .index_num. ) .date, 1 1 ) ; 

write(history( . analogy_candidate ( ,i. ) . index_num . ) .unit, 1 1 ) ; 

if history ( .analogv_candidate( . i. ). index_num. ) .AF_qround_spt = 
newrecord. AF_ground spt then write(‘YES ') 

else write NO j 

if historv( .analogy i _cancidate( . i .). index_num. ). terrain = 
newrecord. terrain then write('YES ') 

else write ( ' NO 1 ) ; 

if history! . analogy candidate! . i. ). index_num. ) .unit = 
newrecord. unit ‘then write!' YES ') 

else write ( ' NO ' ) ; 

if history! . analogy_candidate( . i .). index_num. ) .country = 
newrecord. country then write! 'YES ') 

else write ( ' NO ' ) ; 

if history! .analogy_candidate( . i. ) .index_num. ) . operation_name 
= newrecord. operation_name then write! 1 YES ') 

else write ( 1 NO* ' ) ; 

if history! .analogy^canaidate! .i. ) .index_num. ) .update_source = 
factual then w‘riteln( ' YES') 
else writeln!' NO'); 
writeln 

end;(*end for loop*) 

end,-(*end procedure print_fuel_reasoning*) 
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(*loop control variable 



procedure print_ammo_reasoning; 
var 

i : integer; (*loop control variable 

begin 
page ; 

write In; write In ; write In; writeln ; write In; 
writeln? 1 AMMUNITION REASONING' ) ; 

writeln; write In ; writeln; writeln ; 

writeln? 'The analogous operations are evaluated on the strength'); 
writeln? 'of their similarity to the current operation in those 1 ) 
writeln? 1 areas pertinent to ammo supply consumption. Each of the 
writeln( 'points of similarity are weighted independently.'); 
writeln; 

writeln? 'The weighting of each item is in parenthesis below the 
writeln? ' item name. i.e. (3) = 3 points for AF_GROUND_SUPPORT ' ) ; 
writeln; 

writeln? 'The three previous operations with the highest number o 
writeln? ' quality points are used in the adjustment algorithm.'); 
writeln; writeln ; write In; write In; writeln; 
write? ' 



! ); 

f 1 ); 



DATE 

'UNIT 



writeln( 1 • 
write ( 1 
writeln( 
write ( 1 
wnteln( 'NAME 

write( ' 

vriteln( 1 

writeln; 
write ( 1 
writelnC (1) 

write (' 

writeln( ' 

writeln; writeln; 
for i:= 1 to num. 
beain 



) 



UNIT 

COUNTRY 

NAME 


AF 

OPERATION 
GRND SPT 
NAME 


TERRAIN 
UPDATE 1 ) ; 

SOURCE 1 ) ; 


VISIBILITY 






. _ | 


) ; 












(i) 


as 


(*?>■ 


); 


(1) 



candidates do 



write (history; . analogy_candidate ( . i . ) . index_num. ) .date , 1 1 ) ; 

write(history( . analogy_candidate( .i. ) ,index_num. ) .unit, 1 1 ) ; 

if history( . analogy_candidate( . i. ) . index_num. ) . AF_qround_spt = 
newrecord. AF_grcund spt then write('YES '") 

else write(' NO ; 

if history( .analogy^candidateC . i. ). index_num. ). terrain = 
newrecord. terrain then write('YES ') 

else write ( 1 NO ' ) ; 

if history( . analogy candidate( . i. ). index_num. ) .visibility = 
newrecord. visibility then write(' YES ') 
else write(' NO '*) ; 

if history; .analogy candidate; . i. ). index_num. ) .unit = 
newrecord. unit then write (' YES ') 

else write( 1 NO ' ) ; 

if history; . analogv_candidate( . i .). index_num. ). country = 
newrecord. country then write('YES ') 

else write; 1 MO '); 

if history; . analogy_candidate ( . i . ) . index_num. ) . operaticn_name 
= newrecord. operation_name then write(' YES ') 

else write ; 1 NO 1 ) ; 

if history (. analogy candidate; . i. ). index_num. ) .update_source = 
factual then wrfteln( ' YES') 
else writeln( 1 NO 1 ); 

writeln 
end; (*end for loop*) 

end;(*end procedure print_ammo_reasoning*) 



*) 



procedure print_Gen_supplies_reasoning; 
var 

i : integer; (*loop control variable *) 

begin 
page ; 

writeln ; write In ; write In; write In; writeln; 
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writeln( ' GENERAL 

write In; write In; write In; write In; 



SUPPLY REASONING 1 ) 



writeln 

writeln 

writeln 

writeln 

writeln; 

writeln ' 

writeln , 

writeln; 

writeln ' 

writeln 

writeln 



The analogous operations are evaluated on the strength 1 ); 

1 o f their similarity to the current operation in those'); 
‘areas pertinent to" general supoly consumption. Each of the 1 
‘points of similarity are weighted independently. 1 ); 

‘The weighting of each item is in parenthesis below the 1 ); 
‘item name. i.e. (2) = 2 points for AF_GROUND_SUPPCRT 1 ) ; 

‘Up to three previous operations are considered in the ■); 
‘adjustment algorithm, with those operations with the 1 ) ? 



writeln 



hiqhest number of quality points being chosen for this 
purpose . 1 ) ; 
wr ite In; write In; write In; write In ; write In; 

write (‘ 1 > 



DATE 

‘UNIT 



writeln( 
write ( 1 
writeln( 
write ( 1 
writeln( 1 NAME 

write ( 1 

writeln( 1 

writeln; 
write ( ‘ 
writeln( 

write (‘ 

writein( 1 

write In; write In ; 
for i:= 1 to num. 
begin 



UNIT 

COUNTRY 

NAME 



AF 

OPERATION 

GRND_S?T 

NAME 



1 ) ; 

TERRAIN VISIBILITY 



UPDATE 

SOURCE 



(1) 



( 1 ) 



ifi 



( 2 ) 

(2) 



); 

'h 

h 



( 1 ) 



) ; 

) 



candidates do 



write (history ( . analogy ^candidate ( . i. ) . index_num. ) . 
writs (history ( . analogy_candidate ( . i. ) . index_num. ) . 
if history( . analogy^ candidate ( . i . ) . index_num. N ~ 
newrecord. AF_ground spt then v;rite('YES 
else write ( 1 NO ; 

if history (. analogy^candidate (. i .). index_num. ). terrain = 
newrecord. terrain then write ('YES ') 



date , 1 1 ) ; 

unit,' '); 

) • AF_ground_spt = 



else write( 
if historv( 



NO 1 ) . 

.analogy candidate (. i. ). index_num. ) .visibility = 



newrecord. visibility then write(‘ YES 



else write 
if history 



NO 

. analogy, 



) 



newrecord. unit then write(‘ YES 



candidate ( . i. ) . index_num. ) .unit = 



) 



else write ( 1 NO 1 ) ; 

if history (. analogy_canaidate (. i .). index_num. ). country = 
newrecord. country then write('YES ') 

else write ( 1 NO " 1 ) ; 

if history( . analogy _candidate ( .i. ) .index_num. ) . operation_name 
= newrecord. cperation_name then write(‘ YES ') 



else write( 



NO 



). 



if his tory( . analogy candidate ( .i. ) .index_num. ) .update_source = 
factual then writeln( ' YES') 



else writeln ( ‘ NO 1 ) ; 
writeln 

end; (-end for loop*) 

end; (*end procedure print_Gen_supplies_reasoning*) 



begin (*procedure adjust_estimate*) 

newrecord. analogy_info .num_analogies := 0 ; 
index := file_counter ; 
num candidates := 0; 

while (num_canaidates < max_candidates) and (index > 0) do 
begin 

if analogous ( index) then 
begin 

num_candidates := num_candidates + 1; 
if newrecord. analogy_info .num_analogies < 3 then 
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newrecord. analogy_info . num_analogies : = 
newrecord.analogy_info. num_analogi.es + 1; 
analogy_candidate( . num_candidates . ) . index_num:= index; 
end; 

index := index -1; 
end;(*end while statement*) 
print_analogies ; 

if newrecord. analogy_info.num_analogies > 0 then 
begin 

for i:= 1 to num_candidates do 
begin 

ar.alogy_candidate ( . i . ) . strength_pts : = 

compute_strength(0 , 0,0,1, 1,0, 0,0,0, 0,1, 1,0,0, 

analogy_candidate( . i. ) .index_num) ; 
analogy_candidate ( . i . ) . used:= false 
end; 

for i:= 1 to newrecord. analogy info.num analogies do 
begin ” ” 

newrecord. analogy info.analogies( .i. ) . analogy_index := 
pick_best analogy; 

newrecord. ana1ogy_info. analogies ( . i. ) .date := 

history( . newrecord. analogy_info. analogies ( .i. ) 

. analogv_index. ) .date ; 

newrecord. analogy_ info. analogies ( . i . ) . unit := 

history( .newrecord. analogy_info. analogies ( .i. ) 

. analogy_index. ) .unit; 

newrecord. analogy_info . analogies ( .i. ) .quality_pts -.= 
compute_strength(0 , 0,0,1, 1,0, 0,0,0, 01,1, 0,0, 

newrecord. analogy_info . analogies (. i. ) . analogy_index) 

end; 

print_water_reasoning; 

adjust( 1 ) ; 

for i:= 1 to num_candidates do 
begin 

analogy _candidate ( . i. ) . strength_pts := 

compute_strength(0, 0,0, 1,0, 1,0, 0,0, 0,1, 0,1,0, 

analogy _candidate( . i. ) . index_num) ; 
analogy_candidate ( .i. ) .used:= raise 
end; 

for i:= 1 to newrecord. analogy info.num analogies do 
begin “ ” 

newrecord. analogy info, analogies ( . i. ) .analogy_index:= 
pick_best analogy; 

newrecord. ana"logy_info. analogies ( . i . ) . date : = 

history( . nev/record. analogy_info. analogies ( .i. ) 
.analogy_index. ) .date ; 

newrecord. analogy_info. analogies ( . i. ) .unit := 

history( .newrecord. analogy_info. analogies ( .i. ) 

. analogy_index . ) . unit ; 

nev;record. analogy_info . analogies ( . i . ) . quality_pts : = 
compute_strer.gth(0 , 0,0,1, 0,1, 0,0, 0,0. 1,0, 1,0, 

'newrecord. analogy_info. analogies (.i. ) . analcgy_index) 

end; 

print_subsistence_reasoning; 

adjust (2) ; 

adjust (3) ; 

for i:= 1 to num_candidates do 
begin 

analogy_candidate ( . i . ) . strength_pts := 

compute_strength(l , 1,1, 1,1, 1,1, 2, 1,2, 2, 1,1,1, 

analogy _candidate( . i . ) . index_num) ; 
analogy_candidate( . i. ) .used:= false 
end; 

for i:= 1 to newrecord. analogy info.num analogies do 
begin 

newrecord. analogy info. analogies ( .i. ) . analogy_index := 
pick_best analogy; 

newrecord. analcgy_info. analogies ( . i. ) .date := 

history ( . newrecord. analogy_info . analogies ( . i. ) 

. analogy_index. ) .date; 
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newrecord. analogy_info . analogies ( . i . ) .unit := 

history( .newrecord. analogy_info . analogies ( . i. ) 

. analogy_index . ) . unit ; 

newrecord. analogy_info . analogies ( . i . ) . quality_pts := 
compute_stre‘ngth( 1 ,1,1,1, 1,1, 1,2, 1,2 2 , 1 , 1 , 1 , 

newrecord. analogy_info . analogies (. i . ) . analogy_index) 

end; 

print_Gen supplies_reasoning; 

adjust^)? 

adjust (6) ; 
adjust ( 19 ) ; 
adjust! 20 } ; 
adjust (21) ; 

for i:= 1 to num_candidates do 
begin 

analogy_candidate( . i . ) . strength_pts := 

coirp>ute_strength( 1 ,0,1, 1,1, 1,1, 2, 0,3,1, 1,1,1, 

analogy candidate ( . i . ) . index_num) ; 

analogy_candidate( . i. ) .used:= false 
end; 

for i:= 1 to newrecord. analogy info.num analogies do 
begin 

newrecord. analogy info . analogies ( . i . ) . analogy_index := 
pickjcest analogy; 

newrecord. ana”logy_info . analogies ( . i . ) . date : = 

his tor y ( .newrecord. analogy_info . analogies ( . i . ) 

. analogy_index. ) . date ; 

newrecord. analcgy_inf o . analogies ( . i . ) . unit := 

history( . newrecord. ana logy_info . analogies ( . i . ) 

. analogy_index. ) .unit; 

newrecord. analogv_info . analogies ( . i . ) . quality_pts := 
compute_stre"ngth( 1 ,0,1,1. 1,1,1, 2, 0,3. 1 , 1 , 1 , 1 , 

newrecord. analogy_info . analogies ( . i . ) . analogy_ind ex) 

end; 

print_fuel_reasoning; 
adjust(5) ; 

for i:= 1 to num_candidates do 
begin 

analogy_candidate( . i. ) . strength_pts := 

compute_strength( 1 ,1,1, 1,1, 1,1, 3, 1,2, 1,1, 1,1, 

analogy_candidate( . i. ) . index_num) ; 

analogy_candidate ( . i. ) .used:= false 
end; 

for i:= 1 to newrecord. analogy_info.num_analogies do 
begin 

newrecord. analogv_info. analogies ( . i . ) . analogy_index := 
pick_best analogy; 

newrecord. ana1ogy_info. analogies ( . i. ) .date:= 

history ( . newrecord. analcgy_info . analogies ( . i . ) 

. analogy_index . ) . date ; 

newrecord. analogy_info . analogies ( . i . ) . unit := 

history( . newrecord. ana logy_info . analogies ( . i . ) 

. analogv_index . ) .unit; 

newrecord. analogy_info . analogies ( . i . ) . quality_pts := 
compute_strength( 1 ,1,1, 1,1, 1,1, 3 , 1,2. 1,1, 1,1, 

newrecord. analogy_info . analogies ( . i . ) . analogv_index) 

end; 

print_ammo_reasoning; 

adjust(7 ) ; 

adjust( 8) ; 

adjust (9; .* 

adjust! 10 ) ; 

adjust! 11) ; 

adjust (12 ) ; 

adjust(13) ; 

adjust! 14 ) ; 

adjust 15 ) ; 

adjust 16 ) ; 

adjust- 17 ) ; 

adjust ( 13 ) 
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end 

else for adjus tment_index := 1 to num_supply r _items do 

newrecord. consumption ( . adjustment_£ndex. ) . adjustments := 






en d; <*' end procedure adjust_estimate*) 



0 ; 



begin (*begin procedure create_estimate*) 
water_estimate ; 
class_I_estimate ; 

compute_general_supplies ( 4, 3.67); 
compute_general_supplies( 6, 4.00); 
compute_general_supplies( 19 ,15.00); 
compute_general_supplies ( 20 , 1.22); 
compute^general^supplies (21 , 2.50); 
diesei_Iuel estimate; 

if newrecorH. duration = first_day then 
begin 

compute_ammo( 7 , taskforce (. 13 .) . quant ity+taskforce( . 14. ) . quantity , 

52,62,29,35,10,12) 

compute_ammo ( 8 , taskforce ( . 15 . ) .quantity , 7 , 9 ,4 ,6 , 3 ,4) ; 
compute_ammo ( 9 , taskforce ( . 16 . ) .quantity ,2 ,3, 1,2, 1,1); 
compute_ammo(l0 , taskforce ( . 7 . ) . quantity ,376,423 ,244 ,275,132,148); 
compute_ammo(ll , taskforce ( . 8 . ) .quantity ,374 , 520,229,313,115,160); 
compute_ammo( 12 , taskforce ( . 9 . ) . quantity , 288, 395 , 136,255, 34,115); 
compute_ammo(13 , taskforce ( . 11 . ) . quantity ,3984 ,4800 ,2241,2700,747, 

900) ; 

compute_ammo (14, taskforce ( . 5 .) .quantity, 97,116,54,65,18,22); 
compute_arr.mo( 15 , taskforce ( . 6 . ) . quantity , 109 ,130,61,73,20,24): 
compute_ammo(16 , taskforce ( . 17 . ) . quantity, 175,210,99,118,33,39); 
corr.pute_ammo(17 , taskforce ( . 18 . ) . quantity ,433 , 519 , 243 , 292 ,81.9/); 
compute_ammo( 18 , taskforce ( . 19 . ) . quantity ,99 ,113,56,67,19,22) 
end 

else begin 

compute_ammo ( 7 , taskforce (. 13 . ) . quant ity+ taskf orce ( . 14 . ) .quantity, 

28,38,16,21,5,7") ; 

compute_ammo ( 8 , taskforce ( . 15 . ) . quantity , 8 ,10,5,7,3,4) ; 
compute_ammo( 9 , taskforce (.16.). quantity , 3 ,4, 2 , 2 , 1 , 10) ; 
compute_ammo ( 10 , taskforce ( . 7 . ) .quantity , 381 ,467 , 248, o04 ,133,163); 
compute_ammo( 11 , taskforce ( . 8 . ) . quantity ,374, 530 ,229,324,120,163); 
compute_ammo ( 12 , taskforce ( . 9 . ) .quantity, 231 ,363,181,235,82,106); 
compute_ammo(13 , taskforce ( . 11 . ) . quantity , 2151 , 2380 ,1210 ,1620,403 , 

540) ; 

compute_ammo ( 14 , taskforce ( . 5 .) .quantity, 53,70,30,40,10,13); 
corapute_ammo( 15 , taskforce ( . 6 . ) .quantity , 59 ,79 ,33,45,11,15): 
compute_ammo (16, taskforce { . 17 . ) .quantity , 96 ,127,54,72,18,24); 
compute_ammo ( 17 , taskforce ( .18 . ) . quantity , 236 ,314,133,177,44,59); 
compute_ammo (18 , taskforce ( . 19 . ) . quantity , 54 ,72,30,40,10,13) 
end; 

ad j us t_e s timate ; 

for i:= 1 to num_supply_items do 

newrecord. consumption^ . i . ) . f inal_estimate := 
newrecord. consumption; .i. ) .general_estimate + 
newrecord. consumpt ion ( . i . ) . adjustments ; 
file_counter := file_counter + 1; 
history ( . f ile_counter . ) := newrecord 
end; (^end procedure create_estimate*) 



procedure print_estimate ; 
yar 

i : integer; (*index 

begin 

page ;writeln,-writeln; 
wnte( 1 

writeln( 'AUTOMATED LOGISTICS 
wr ite In,- write In; write In; 
writelnl 'DATE 
wriceln( 'UNIT 



variable for printing consumption array*) 



PLAN ' ) ; 

1 .newrecord. date) ; 
' , newrecord. unit) ; 
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case newrecord.tf type of 

armor : writelnf ' TASK FORCE TYPE 
writeln( 'TASK FORCE TYPE 
vriteln( 'TASK FORCE TYPE 



mecn 
inf 

end; (*end case statement*) 
case newrecord. tf_size of 



end; 

case 



bn 

bde 



write"ln( 

writeln( 



TASK 

TASK 



FORCE 

FORCE 



SIZE 

SIZE 



ARMOR ' ) ; 
MECHANIZED' ) 
INFANTRY ' ) ; 



BATTALION' ) ; 
BRIGADE ' ) ; 



newrecord. mission of 



'MISSION 

'MISSION 



attack : writeln( 
defend : writeln( 

end; 

case newrecord. duration of 

first_day : writeln( 

succeeding_day : writeln( 

end;(*end case statement*) 
case newrecord. intensity of 



ATTACK 

DEFEND 






‘DURATION 

'DURATION 



FIRST DAY' ) ; 
SUCCEEDING DAY') 



hi 


: vriteln( 


' COMBAT 


INTENSITY 


HIGH' 


mid 


: v;riteln( 


1 COMBAT 


INTENSITY 


MID ! ) 


low 


: writeln( 


1 COMBAT 


INTENSITY 


LOW ' ) 



end; (,*ena case statement*; 
writeln( 'OPERATION NAME 
case newrecord. area of 

conus : vriteln( 1 AREA 
eurcpe : write In (' AREA 
korea : writein( ' AREA 
end; (*end case statement*) 
write In ( : COUNTRY 
case newrecord. climate of 






); 



hot 

temperate 

cold 

end; (*end case 



writeln( 

writeln( 

writeln( 



statement*) 



1 CLIMATE 
' CLIMATE 
'CLIMATE 



, newrecord. operation_name) ; 

CONUS ' ) ; 

EUROPE ' ) ; 

KOREA ' ) 

,newrecord. country) ; 

HOT 1 ) ; 

TEMPERATE ' ) ; 
COLD ' ) 



'TERRAIN 
'TERRAIN 
'TERRAIN 
1 TERRAIN 



OPEN' ); 

WOODS ' ) ; 
BUILT UP' ); 
MOUNTAINS ‘ ) ; 



: writeln( 


'VISIBILTY 


GOOD 1 ) ; 


: writelm 


'VISIBILTY 


FAIR 1 ) ; 


: v;riteln( 


'VISIBILITY 


POOR ' ) ; 



case newrecord. terrain 
open : writeln 

woods : writel n 
built_up : writeln 
mountains : writeln x 
end; (*end case statement^) 
case newrecord. visibility of 
cood 
fair 
poor 

end; (*end case statement^) 
if newrecord. AF_pround_spt = true 
writeln( 1 AF GROUND SUPPORT 
else writeln ( ' AF GROUND SUPPORT 
if newrecord. moppcondition = true 
writeln( 'MOPP LEVEL 3/4 
else writeln( 'MOPP LEVEL 3/4 
writeln( 'PERSONNEL STRENGTH 
if newrecord. ration_pclicy 

writeln( 'RATION POLICY 
else writein( 'RATION POLICY 
writeln ; write In ; 
write( 'HISTORICAL DATA AVAILABLE '); 
if newrecord. analogy_info.num_analogies > 0 then 
begin 

writeln( 'YES' ) ; 
writeln; 

write(' DATE '); 

for i*.= 1 to newrecord. analogy info .num^analoqies do 
write (newrecord. analogy_info . analogies ( . i .“) . date , 
writeln; 

write(' UNIT '); 

for i:= 1 to newrecord. analogy^info.num^analoqies do 
write (newrecord. analogy_in£o . analogTes ( . i .unit, 
writeln; 
end 



= b c 



then 

YES' ) 

NO ' ) ; 
then 

YES' ) 

NO ' ) ; 

, newrecord.personnel_strength :4) ; 
b then 

b_c b ' ) 
c_c_B ' ) ; 



) ; 



) ; 
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else writeln{ ' NO 1 ) ; 
writeln; writeln; 

write ( ' 1 ) ; 

writeln( 'LOGISTICS ESTIMATE'); 
writeln ,-writeln; 

write(' SUPPLY ITEM GENERAL EST. ADJUSTMENTS'); 

writeln( ' FINAL EST. ' ) ; 

writeln; write In; 

for i:= 1 to num_suoply_items do 
begin 

write(newrecord.consumption( .i. ) . supply_item) ; 
write ( 1 ' ) ; 

write(newrecord.consumption( . i. ) . general_estimate :6) ; 
writet 1 ' ) ; 

write(newrecord.consumption( . i. ) .adjustments :6) ; 
write ( ' '); 

write (newrecord. consumption ( . i . ) . final_estimate :6) ; 
write(' '); 

writeln(newrecord.consumption( .i. ) .unit_of_measure) ; 
writeln 

end; (*end printing out consumption array*) 
end; (*ena procedure printestimate*) 

begin (*begin log_estimate*) 
build_task_force ; 
create_scenario ; 
create_estimate ; 
print_estimate ; 

en f? 3e < *end procedure log_estimate*) 



MODULE HI STORY JJPDATE 

procedure history_update ; 
var 

update_record : oprecord; 
i* : integer; 

found : boolean; 

continue_char : char; 

procedure readunit ; 
const 

blanks = 1 1 ; 

var 

ok : boolean; 

answer : char; 
unitname : unitstring; 
begin 

ok := falser- 
repeat 

writeln( 1 Enter name of unit which 
writeln('For example- l/33rd '); 
readln(unitname) ; 
strconcat (unitname ,blanks ) ; 
writeln; 

writeln('The name of the unit was 
writeln ; write In? 

writeln( l Is this the correct unit 

writelnf 1 Enter the number corresponding to your answer. 1 ); 
writelnf 1 1 - yes, unit name is correct 

writeln( 1 2 - no, unit name is incorrect 1 ); 

readln(answer) ; 
if answer = 'l 1 then 
begin 

update_record.unit := unitname; 
ok:= true 
end 



conducted the operation 1 ); 

1 , unitname); 
name? 1 ) ; 



(^record to be updated * 

(*index into the historical files 
(*true if record found in history files * 
(*user response to continue with program* 
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until ok = true; 
v/riteln : 

end; (*ena procedure readunit*) 

procedure readdate ; 

var 

ok : boolean; 

newdate : datestring; 
answer : char; 
begin 

ok := false; 
repeat 

writeln( 1 Enter the date on which the operation took place. 1 ); 
vriteln( 1 Use the form dd/mm/yy'); 
readln(newdate) ; 
writeln; 

writein('The date of the operation was 1 , newdate); 
writeln; 

writeln? 1 Is this the correct date? 1 ); 

writelm 1 Enter the number corresponding to your answer.'); 
writelm' 1 - yes, date is correct '); 

writeln(' 2 - no, date is incorrect 1 ); 

readin(answer ) • 
if answer - '1' then 
begin 

uodate_record.date := newdate; 
ok := true 
end 

until ok = true; 
writeln; 

end; (*end procedure readdate*) 

procedure readmission ; 
var 

ok : boolean; 
mission_code : char; 
begin 

writelnf 1 Enter the number corresponding to the correct mission. 1 ); 

writelm' i - attack '); 

writeln^ 1 2 - defend 1 ); 

ok:= false; 

repeat 

readln(mission_code) ; 
if mission_code = '1' then 
begin 

update_record. mission := attack; 
ok:= true 
end 

else if mission_code = '2 1 then 
begin 

update_record. missions defend; 
ok:= true 
end 

else writeln('you have made an error in input, try again.'); 
until ok = true; 
writeln; 

end; (*end procedure readmission*) 



procedure readupdate_source ; 
var 

ck : boolean; 
answer : char; 
begin 

writeln ( 1 What was the source of the information for this update 1 ); 
writeln ; 

vricelm 1 Enter the correct number for your response 1 ); 
writeln(' 1 - estimate'); 
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writeln( 1 2 - factual information '); 

ok:= false; 

repeat 

readln(answer ) ; 

if answer = 'l 1 then 
begin 

nistory( . i. ) .update_source := estimate ; 
ok := true 
end 

else if answer = '2' then 
begin 

nistory( . i. ) . u.pdate_source : = factual; 
ok:= true 
end 

else writeln('You have made an error in input, try again.'); 
until ok - true; 
write In; write In ; write In 
end; (*end procedure readupdate_source*) 



procedure input_consumption ; 
var 

j, ("'"index variable into the consumption array 

amount : integer; (*the user provided consumption figures 
begin 

with history(.i.) do 
begin 

writelnf 1 Enter the actual consumption for each of the supply 1 ) ; 
writeln( 1 items that follow. If no actual consumption figures 1 ); 
writeln( , are available, enter 0 . ■); 
writeln;writeln ; 

for j := 1 to num_supply_items do 
begin 

write ( 1 Enter the number of '); 
write (consumption ( . j . ) . supply_item, 1 1 ) ; 
writeln(consumption( . j . ) .unit_of_measure , 1 1 ) ; 

readln( amount) ? 
writeln(amount) ? 

consumption ( . j . ) . actual_consumption := amount; 
writeln 
end; 

update := true 
end 

end; (*end procedure input_consumption*) 



begin (^begin history_update^) 

writeln('You will now be asked information about the operation. 1 ); 

writeln('for v;hich you have actual consumption data . ' ) ;writeln; 

readunit ; 

readdate ; 

readmission; 

found:= false; 

i:= 1; 

while (not found) and (not (i > f ile_counter ) ) do 
witn update_record do 
begin 

if (history( . i. ) .unit = unit) and 
(history( . i. ) .date = date) and 
(history (. i .) .mission = mission) 
then begin 

found := true; 
readupdate_source ; 
input_consumption 
end 

else i:= i+ 1 
end; 

if found then begin 
writeln ; writeln; 
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writeln('The record has been updated . ') 
end 
else 

begin 

writeln? 1 There is no record in the historical file which 1 ) ( - 
writeln? 1 matches the unit, date, and mission you have specified 1 ) 
writeln? 1 Check your input and try again ' ) 
end; 

writeln( 1 Enter c to continue 1 ); 
repeat 

‘readln(ccntinue_char) 
until continue_char = 'c 1 ; 



encf; ^(-end procedure history_update*) 



MODULE DELETE RECORD 



procedure de let e_re cord; 
var 

delete_record : oprecord; 
i : integer; 

found : boolean; 

continue_char : char; 



! *name of record to be deleted 
*inaex into the historical files 
*true if record found in history files 
*user response to continue program 



procedure reaaunit ; 
const 

blanks = 1 1 ; 

var 

ok : boolean; 

answer : char; 
unitname : unitstring; 
begin 

ck:= false; 
repeat 

writeln? 1 Enter name of unit which conducted the operation'); 

writeln? 'For example- l/33rd '); 

readln(unitname) ; 

strconcat (unitname , blanks) ; 

writeln; 

writeln? 'The name of the unit was 1 , unitname); 
writeln; writeln ; 

writeln? 'Is this the correct unit name? 1 ); 
writeln? 1 Enter the number corresponding to your answer. 1 ); 
writeln? 1 1 - yes, unit name is correct 

writeln? 1 2 - no, unit name is incorrect'); 

reaaln(answer) ; 
if answer = '1' then 
begin 

delete_record.unit := unitname; 
ok := true 
end 

until ok = true; 
writeln 

end; (*end procedure readunit*) 



procedure readdate ; 
var 

ok : boolean* 

newdate : datestring; 
answer : char; 
begin 

ok:= false; 
repeat 

writeln? 'Enter the date on which the operation took place.'); 
writeln? ‘Use the form dd/mm/yy 1 ); 
readln(newdate) ; 
writeln ; 
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* * * 



writeln(‘The date of the operation was 1 , newdate); 
writeln; 

writeln? 1 Is this the correct date?'); 

writeln? 1 Enter the number corresponding to your answer. 1 ); 
writeln?' 1 - yes, date is correct 1 ) ; 

writeln^ 1 2 - no, date is incorrect'); 

readln(answer ) ; 
if answer = '1' then 
begin 

delete_record. date := newdate; 
ok:= true 
end 

until ok = true; 
writeln 

end; (*end procedure readdate*) 

procedure re admission ; 
var 

ok : boolean; 
mission_code : char; 
begin 

ok:= false; 
repeat 

writeln? 1 Enter the number corresponding to the correct mission. 1 ) 
writeln? 1 1 - attack 1 ) ; 

writeln(' 2 - defend 1 ); 

readln(mission_code) ; 
if mission_code = '1' then 
begin 

delete_record. mission := attack; 
ok:= true 
end 

else if mission_code = '2' then 
begin 

delete_record. mission := defend; 
ok:= true 
end 

else writeln('you have made an error in input, try again. 1 ); 
until ok = true; 
writeln 

end; (*end procedure readmission^) 



orocedure deletion; 

var 

j : integer; (*inaex variable into the history files*) 

begin 

for j:= i to (file counter -1) do 
history (. j . ) : = "history ( . j+1 . ) ; 
f ile_counter := file_counter -1; 
write In; write In; 

writelnv'The record was found and deleted.') 
end; (*end procedure deletion*) 



begin (*begin module delete_record*) 

writeln('You will now be asked information about the operation.'); 

writeln( ‘ that you want deleted. 1 ); 

writeln; 

readunit ; 

readdate • 

readmission; 

found:= false; 

i := 1 ; 

while (not found) and (not (i > file_counter ) ) do 
witn delete_record do 
begin 

if (history (. i. ) .unit = unit) and 
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(history (. i .). date = date) and 
(history (. i .) .mission = mission) 
then begin 

found:= true; 
deletion 
end 

else i:= i+ 1 
end; 

if (not found) then 
begin 

writeln( 1 There is no record in the historical file which 1 ) 
v/ritelnc 1 matches the unit, date, and mission you have specified 1 ); 
writeln( 1 Check your input and try again ') 
end; 

writeln;writeln;writeln;write( 1 1 ) ; 

writeln( 1 Enter c to continue 1 ); 

repeal 

*readln(continue_char) 
until continue_char = 'c 1 ; 
page 

enc; "(’‘'end procedure delete_record*) 



MODULE FRINT^HI STORY 

procedure print_history ; 
var 



3 ' . „ 

l : integer; 
begin 

for j := 1 to file_counter do 
begin 

writeln;writeln ; 
write ( 1 

writeln( 'HISTORICAL RECORD 1 ) 
write In ; write ln;v; rite In; 
writeln( ' DATE 
writeln( 'UNIT 
case history( . j . ) . tf 
armor 
mech 
inf 



(*i 

(*index variable for printing consumption array* 



index variable for history array 



! 



); 



1 ,history 
1 , history 



y( o • ) . 



. , tvpe of 

writelnf'fASK FORCE TYPE 

writelnl 'TASK FORCE TYPE 

writeln( 'TASK FORCE TYPE 

end; (*end case statement*) 
case history( . j . ) . tf size of 

bn : write In (”' TASK FORCE SIZE 

bde : writeln( 'TASK FORCE SIZE 

end; (*end case statement*) 
if history( . j .) .mission = attack then 

writeln( 'MISSION ATTACK') 

else writeln( 'MISSION DEFEND 1 ); 

case history( .j .) .duration of 

first_day :writeln( ' DURATION 

succeeding_day :writeln( ' DURATION 
end;(*end case statement*) 
case histcrvf . i . ) . intensity of 
hi 
mid 
low 

end; (*end case statement*) 
writeln( 'OPERATION NAME 
case history ( . j . ) .area _o_f 
conus f write ln»' 
eurcpe : writelm 
korea : writelni. 
end; (*end case statement*) 
write In ( 'COUNTRY ' 

case history( . j . ) .climate of 

hot : writeln( 'CLIMATE 



date) ; 
unit) ; 



ARMOR ' ) ; 
MECHANIZED' ) ; 
INFANTRY ' ) ; 



BATTALION' ) ; 
BRIGADE ' ) ; 



FIRST DAY' ) ; 
SUCCEEDING DAY') 



: writeln( 


' COMBAT 


INTENSITY 


HIGH ' 


: writelni 


' COMBAT 


INTENSITY 


MID' ) 


: writeln( 


' COMBAT 


INTENSITY 


LOW' ) 



' AREA 
' AREA 
' AREA 



,history( . j . ) . operation_name) ; 

CONUS 1 ) ; 

EUROPE 1 ) ; 

KOREA 1 ) 

,history( . j . ) .country) ; 

HOT ' ) ; 
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temperate •. writeln( 
cold : writein/ 

end;(*end case statement'') 
case history( . j .)• terrain of 



1 CLIMATE 
1 CLIMATE 



open 
woods 
built_up 
mountains 
end; (''end case 
case history/ . j 



writein( 'TERRAIN 



writeln( 'TERRAIN 
writein/ 1 ' r " T " n7 ' T ' r 
writein/ 



'TERRAIN 
. ' TERRAIN 
statement*) 

) .visibility of 



TEMPERATE 1 ) 
COLD ' ) 



OPEN ' ) ; 

WOODS ' ) ; 
BUILT UP' ) : 
MOUNTAINS ' ) ; 



Dt = true 
■"PORT 



true 



good f writein/ 'VISIBILTY 

fair : writein/ 'VISIBILTY 

poor writein/ ' VISIBILITY 
end; (*end case statement*) 
if history( . j . ) .AF_ground_s' 
writeln('AF GROUND SU! 
else writeln( ' AF GROUND SUPPORT 
if history/ o .) .mcpocondition = 
writein/ 'MOP?' LEVEL 3/4 
else writeln( 'MOP? LEVEL 3/4 
write ( 'PERSONNEL STRENGTH '). 
write In (history/ . j . ) .per sonne l_strength :4) ; 
if history/ .j .). ration policy = b_c b then 
writein/ 'RATION POflCY "b_c_b') 

else writeln( 'RATION POLICY c_c_b ' ) 

if (history( .j .) .update = true) then 
case history/ o .) .update_source of 



GOOD' 

FAIR' 

POOR' 



then 
YES 1 ) 
NO ' ) ; 
then 
YES ' ) 
NO ' ) ; 



NONE ' ) ; 
ESTIMATE' ) 



none : wntelnl ' UPDATE SOURCE 

estimate : writein/ ' UPDATE SOURCE 

factual : writein/ 'UPDATE SOURCE FACTUAL'), 

end (*end case statement*) 
else wr ite In ( 'UPDATE SOURCE NONE'); 

write In ; write In; 

write ( 'HISTORICAL DATA AVAILABLE ')• 
if history/ .j .) .ar.alogy_info.num_analogies > 0 then 
begin 

writeln( 'YES ' ) ; 
writein; 

write (' DATE '); 

for i:= 1 to history( . j . ) . analogy_info .num_analogies do 
begin 

write(history( . j . ) . analogy_info . analogies ( . i. ) . date ) 
write( 1 ' ) 

end; 

writein; 

write (' UNIT '); 

for i:= 1 to history( . j . ) .analogy_info.num_analogies do 
write(historv( . j . ) . analogy_into . analogies ( .i. ) .unit, ' 
writein; 
end 

else writeln('NO'); 
write In; write In; 

write ( ' ' ) ; 

writeln( 'LOGISTICS ESTIMATE'); 
wr ite In; write In; 

write(' SUPPLY ITEM GENERAL EST. ADJUSTMENTS'); 

writelnC FINAL EST. ACTUAL CONS . 1 ) ; 

writeln,-writeln; 

for i:= 1 to num supply items do 
begin “ 

' ‘ (history( . j . ) . consumption( .i. ) . supply_item) ; 

(history( . j . ) . consumption ( . i . ) . general_estimate :6) ; 



writei 
writer 
write i 
write i 
write i 

writei , , 

write (hist ory( . j . ) . consumption ( . i . ) . final_estimate :6) ; 
write i 1 1 ) . 

write(history( . j . ) . consumption( . i. ) .actual_consumption:6) ; 
v;rite( 1 '); 



history/ . j . ) i consumption/ . i . ) . adjustments : 6 ) ; 
history/ . j . ) .consumption/ . i . ) . final_estimate : 
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writeln(history ( . j . ) . consumption( .i. ) .unit_of_measure :6) ; 
writeln 

end; (*end printing out consumption arrays) 

cage 

end (*end printing all the files in the history array*) 
end; (*end procedure print_history*) 



MODULE PRINT DIRECTORY 

-k xx kk k k 7 ^ k k kk A kk k k kk kk kk k k ^ 



(*index variable into hitory array 
(*user response to continue program 

'); 



procedure print_directorv ; 
var 

history_count : integer; 
continue_char : char; 
begin 

writeln;writein; 
write ( 1 

writeln( 'DIRECTORY' ) ; 
write in; write In; write In; 

if file_counter = 0 then writeln( 1 There are no files in storage. 1 ) 
else begin 

write (' DATE UNIT MISSION'); 

writeln( ' UPDATED' ) ; 

writeln; 

for nistory_count := 1 to file_counter do 
begin 






write ( 
write( 



1 / historv( .history_count . ) . date) ; 
/ history( .history_count . ) .unit) ; 



if history ( .history_count .) .mission = attack then 
write ( 1 ATTACK') 

else write ( 1 DEFEND 1 ) • 

if his tory( . historv_count .). update = true then 
writeln( 1 “ YES 1 ) 

else writeln(' NO'); 

writeln 
end 
end; 

writeln; 

write ( ' 1 ) ; 

writeln( ' Enter c to continue'); 
repeat 

Veadln(continue_char) 
until continue_char = ' c 1 ; 

pa 



en d; V* end procedure print_directory*) 



^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MODULE END_SESSION 

kkk kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKXkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ^ 

procedure end_session ; 
var 

i : integer; (*index variable to write historical files to 

secondary memory *) 

begin 

finished:= true; 

rewrite (history file, 'hist oprecord a'); 
for i:= 1 to file counter do 

write (his tory_file , history ( . i . ) ) ; 
writeln ;writeln; 

v;riteln( ' This session is now over.'); 
writeln,-writeln ; 

writeln('The key to modern warfare is logistics!') 
end; (*end procedure end_session*) 
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MAIN PROGRAM 



begin (* main program *) 
initialize ; 
repeat 

module_choice ; 
case module_code of 

log_estimate ; 
history _update ; 
delete^record; 
print_nistorv ; 
print_directory ; 
end_session 

end; (*end case statement*) 
until finished = true 
end. (*end main program*) 



1 ' 

2 ' 

3 ' 

4 ' 

5 ' 

6 ' 
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APPENDIX E 

PARTIAL PROGRAM IMPLEMENTATION IN COMMON LISP 



This program is a partial implementation of the automated-logistics-planning 
system in Appendix D. Specifically, this program performs the referencing and 
calculations necessary to create the general estimates for the same supply items 
identified in the automated logistics plans in Appendices A and B. The driver of the 
program is function try. The principal data structures of the program are the user- 
defined structures: operation , task force, and supply-item. The program accepts input 
data on task force composition and operation attributes in the same manner as the 
Pascal implementation of the program. There is no error checking done of user input. 
Function create-supply-item performs the referencing and calculating involved in 
creating estimates in accordance with current Army doctrine. The program stops here. 
Two output documents are produced by the program: 

1. Task Force Composition 

2. Automated Logistics Plan 

These documents are almost identical to their counterparts in appendices A and B. 
The program does not permanently store information about the estimates it creates nor 
does it conduct any of the reasoning discussed in chapter 3. One of the interesting 
features of user-defined structures in Common Lisp is that after a structure has been 
defined, Common Lisp provides functions that insert and retrieve data from fields 
within instances of the defined structure. Make- < structure name > is such a function. 
It creates an instance of a structure. The format of this function results in code that is 
easy to read and understand. Specifically, make- < structure name> requires the 
programmer to place the value for the fields of the instance of the structure next to the 
corresponding field names. The program follows. 
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(defun try () 

i format t " ") 

create-operation) 
format t 11 11 ) 

terpri) (terpri) ( terpri) (terpri) 

ere ate -taskforce) 

create- supply- item) 

format t n ) 

write-output) 

( logistics-output) 

(format t 11 ") 

( taskforce -output) ) 



(defstruct operation 
date 
unit 
mission 
climate 
area 
tf-type 
tf-size 
intensity 
moppcondition 
personnel 
ration-policy) 



(defun create-operation () 

(setq opl (make-operation 



:date (read- 
-.unit (read- 
:mission (read- 
climate (read- 
.-area (read- 
: tf-type (read- 
:tf-size (read- 
: intensity (read- 
:moppcondition ( read- 
:personnel (read- 
: ration-policy (read- 



date) 

•unit) 

•mission) 

■climate) 

•area) 

■tf-type) 

•tf-size) 

■intensity) 

■moppcondition) 

■personnel) 

■rations) ) ) ) 



(defun read-date () 

(terpri) (terpri) (terpri) (terpri) (terpri) 

(princ ''ENTER THE DATE OF THE OPERATION. 11 ) 

(read)) 



(defun read-unit () 

( terpri) 

(orinc ''ENTER THE NAME OF THE UNIT. ") 

(read) ) 
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(defun read-mission () 

( terpri) 

(princ ''ENTER THE MISSION TO EE PERFORMED. 
( read) ) 



(defun read-climate () 

(terpri) 

princ "ENTER THE CLIMATE IN WHICH THE 
( terpri) 

(princ •' OPERATION WILL CONDUCTED, 

(read) ) 



(defun read-area () 

( terpri) 

(princ ‘'ENTER THE AREA OF THE WORLD IN WHICH 
( terpri) 

(princ " THE OPERATION WILL TAKE PLACE, 

(read)) 



(defun read-tf-type () 

( terpri) 

(princ ''ENTER THE TYPE OF TASK FORCE CONDUCTING 
(terpri) 

(princ r ‘ THE OPERATION. 

(read)) 



(defun read-tf-size () 

(terpri) 

(princ "ENTER THE SIZE OF THE TASK FORCE, 
(read) ) 



(defun read- intensity () 

( terpri) 

(princ "ENTER THE INTENSITY EXPECTED, 
(read) ) 



(defun read-moppcondition () 

( terpri) 

(princ "DO YOU EXPECT THE TASK FORCE TO BE IN 
( terpri) 

(princ '■ MOPP LEVEL 3/4 ? 

(terpri) 

(princ " ENTER YES OR NO 

(read)) 



(defun read-personnel () 

( terpri) 

(princ ‘'ENTER THE TOTAL NUMBER OF PERSONNEL 
( terpri) 

(princ •' IN THE TASK FORCE 

(read)) 



(defun read-rations () 

( terpri) 

(princ "ENTER THE RATION POLICY DURING THE 
( terpri) 

(princ " 

( read) ) 



OPERATION. EITHER b-c-b or c-c-b 



(defstruct taskforce 
m2 
m3 

mll3 

m901 

ml25al 

mi06al 

ml02 

ml09 

mllO 

mlrs 

mI63 

m730 

ml 

m60 

tows 

m222 

m2mg 

m60mg 

ml6al) 



(defun create-taskforce () 

(setq tfl (make-taskforce :m2 

:m3 

:mll3 

:m901 

:ml25al 

-.mlOGal 

:ml02 

:ml09 

:mllO 

.•mlrs 

:ml63 

:m730 

:rnl 

:m60 

: tows 

:m222 

:m2mg 

:m60mg 

:ml6al 



(read-data 
( read-data 
( read-data 
(read-data 
( read-data 
( read-data 
(read-data 
( read-data 
(read-data 
(read-data 
( read-data 
( read-data 
(read-data 
(read-data 
(read-data 
(read-data 
( read-data 
(read-data 
(read-data 



(defun read-data (x) 

( terpri) 

(princ "Enter the number of ") 
(princ x) 

(princ " in the task force ") 
(read) ) 



"m2 

"m3 

"mll3 

"m901 

"ml25al 

"ml06al 

"mlC2 

"ml09 

"mllO 

"mlrs 

"ml63 

"m730 

"ml 

"m60 

" tov;s 

"m222 

"m2mg 

"m60mg 

"mloal 
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(defstruct supply-item 
water 
b-rations 
mre-rations 
class- I I -supplies 
diesel-fuel 
class -IV- supplies 
class -VI I -supplies 
class -VI I I- supplies 
class -IX- supplies 
tank-ammo- 105mm 
tow- ammo 
dragon-ammo 
howitzer- ammo- 105mm 
howitzer-ammo- 15 5mm 
howitzer- ammo- Sin 
vulcan- ammo -20mm 
mortar- ammo -31mm 
mo rzar- ammo -107mm 
mg-ammo- . 50-caliber 
mg- ammo -7. 6 2mm 
nfle-ammo-5 . 55mm) 



(defun 



create-supplv-item () 

(seta supl 

(make- supply- item 
:water 
:b-rations 
:mre-rations 
: class -II- supplies 
:diesel-fuel 
: class -IV- supplies 
: class- Vll-supolies 
: class -VI 1 1 -supplies 
: class -IX- supplies 
: tank-ammo-105mm 



: tow-ammo 
:dragon-ammo 
: howitzer- ammo- 105mm 
: howitzer-ammo- 15 5mm 
: howitzer -ammo- Sin 
: vulcan -ammo -2 0mm 
:mortar-ammo-81mm 
: mortar- ammo- 107 mm 
:mg-ammo- . 50-caliber 
:mg-ammo-7 .62mm 
:rifle-ammo-5 .56mm 



(water-est) 

(b-rats ) 

(mre-rats) 

(compute-factor 3.67) 

(diesel) 

(compute-factor 4) 
compute-factor 15) 

.compute-factor 1.22) 

: compute-factor 2.50) 

(compute-ammo (+( taskforce-ml tfl) 
(taskforce-m2 tfl)) 

, , / 52 62 29 35 10 12 

(compute-ammo (taskforce-tows tfl) 

. , 7 9 4 6 2 4 ) 

(compute-ammo (taskforce-m222 tfl) 

/ , 2 3 12 11) 

(compute-ammo ( taskforce-ml02 tfl) 

, / 376 423 244 275 132 

(compute-ammo (taskforce-ml09 tfl) 

, . 146 203 95 132 51 

(compute-ammo (taskforce-mllO tfl) 

, „ , , 130 177 35 115 46 

(compute-ammo (taskforce-ml63 tfl) 

3984 4800 2241 2700 < 
(compute-ammo ( taskforce-ml25al tfl) 

, „ , , 97 116 54 65 18 22 

(compute-ammo ( taskforce-ml06al tfl) 

, , 109 130 61 73 20 2- 

(compute-ammo ( taskforce-m2mg tfl) 

. x 175 210 99 118 33 ( 

(compute-ammo (taskforce-m60mq tfl) 

. # 433 519 243 292 81 

(compute-ammo (taskforce-ml6al tfl) 

99 113 56 67 19 22 
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(defun water-est () 

(cond ((and (equal (operation-climate opl) 'hot) 

(equal (operation-moppcondition opl) 'yes) 
(equal (operation-ration-policy opl) 'b-c-b)) 
(* (operation-personnel opl) 5‘.4); 

((and (equal (operation-climate opl) 'hot) 

(equal (operation-moppconaition opl) 'yes) 
(equal (operation-ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 4.9)) 

((and (equal (operation-climate opl) ’hot) 

(equal (operaticn-moppconclition opl) 'no) 
(equal (operation-ration-policy opl) 'b-c-b)) 
(* (operation-personnel opl) 4.9); 

((and (equal (operation-climate opl) 'hot) 

(equal (operation-moppcondition opl) 'no) 
(equal (operation-ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 4‘.4); 

((and (equal (operation-climate opl) 'temperate) 
(equal (operation-moppcondition opl) 'yes) 
(equal (operation- ration-policy opl) ’b-c-b)) 
(* (operation-personnel opl) 4.7); 

((and (equal (operation-climate opl) 'temperate) 
(equal (operation-moDpcondition opl) 'yes) 
(equal (operation-ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 4.2); 

((and (equal (operation-climate opl) 'temperate) 
(equal (operation-moppcondition opl) 'no) 
(equal (operation-ration-policy opl) 'b-c-b)) 
(* (operation-personnel opl) 3.2); 

((and (equal (operation-climate opl) 'temperate) 
(equal (operation-moppconaition opl) 'no; 
(equal (operation- ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 2.7); 

((and (equal (operation-climate opl) 'cold) 

(equal (operation-moppconaition opl) 'ves) 
(equal (operacion-ration-policy opl) 'b-c-b)) 
(* ‘(operation-personnel opl) 3.7); 

((and (equal (operation-climate opl) 'cold) 

(equal (operation-moppcondition opl) 'ves) 
(equal (operation-ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 3.2); 

((and (equal (operation-climate ool) 'cold) 

(equal (operation-moppconcfition opl) ‘no) 
(equal (operation-ration-policy opl) 'b-c-b)) 
(* (operation-personnel opl) 3.7)) 

((and (equal (operation-climate opl) 'coid) 

(equal (operation-moppcondition opl) 'no) 
(equal (operation-ration-policy opl) 'c-c-b)) 
(* (operation-personnel opl) 3.2);)) 



(defun b-rats () 

(cond ((equal (operation-ration-policy opl) 'b-c-b) 
(* (operation-personnel opl) 2)) 

(t (operation-personnel opl;))) 



(defun mre-rats ( ) 

(cond ((equal (operation-ration-policy opl) 'c-c-b) 
(* (operation-personnel ‘opl ) 2 ) )‘ 

(t (operation-personnel opl)))) 



(defun compute-factor (x) 

(/ (* (operation-personnel opl) x ) 



2000 ) ) 
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(defun diesel () 

(cond ((equal (operation-area opl) 
(+ (* (taskforce- ~ 
(taskforce 
( taskforce 



taskforce 
( taskforce 
[taskforce 
(taskforce 
; taskforce 
( taskforce 
taskforce 
( taskforce 
f taskforce 
? taskforce 
taskforce 
taskforce 
taskforce 
( taskforce 
f taskforce 
( taskforce 
i taskforce 
? taskforce 
( taskforce 
< taskforce 
( taskforce 
( taskforce 
( taskforce 
i taskforce 
taskforce 
' taskforce 
( taskforce 
[ taskforce 
, taskforce 
taskforce 
[ taskforce 
(taskforce 
(* (taskforce 
(taskforce 
(taskforce 
(taskforce 
(taskforce- 
((equal (operati 
( + (* ( taskforce-m2 
( taskforce-m2 
( taskfcrce-m2 
( taskforce-m3 
\ taskf orce-m3 
v taskforce-m3 
. taskforce-mll3 
y taskforce— m 113 
( taskforce-mll3 
( taskforce-m901 
( taskforce-m901 
( taskforce-m901 
( taskforce -ml 2 5 al 
f taskforce -ml 25a 1 
( taskforce -ml 2 Sal 
(taskforce-ml06al 
[ taskforce-mlOSal 
, taskforce -ml 06 a 1 
taskforce-ml02 
( taskfcrce-ml09 
( taskforce-m!09 
> taskforce-ml09 
. taskforce-mllO 
l taskforce-mllO 
f taskforce-mllO 



m2 
-m2 
-m2 
-m3 
-m3 
-m3 
-mll3 
-mil 3 
-mll3 
-m901 
-m901 
-m9Cl 
-ml25al 
-mi25al 
-ml25al 
-ml06al 
-ml06al 
-ml06al 
-ml02 
-ml 09 
-ml09 
-ml09 
-mllO 
-mllO 
-mllO 
-mlrs 
-mlrs 
-mlrs 
-ml63 
-ml 63 
-ml63 
-m730 
-m?30 
-m730 
-ml 
-ml 
-ml 
-m60 

-m60 , 

-m60 tfl) 

on-area opl) 1 europe) 
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(* < 


[ taskforce-mlrs 


tfi) 


i 5.0 


1.0) 


(* { 


taskforce-mlrs 


tfi 


i 5.0 


6.2) 


l * 1 


taskforce-mlrs 


tf i 


i 4.5 


8.9) 


) A < 


taskforce-ml63 


tfi 


l 4.0 


1.0) 


/a < 


taskforce-ml63 


tfi 


i 6.0 


5.2) 


( * ^ 


taskforce-mi63 


tfi 


i 5.5 


13.0) 


V * 1 


taskforce-m730 


tfi 


l 4.0 


0.5) 


/ a , 


taskf orce-m730 


tfi 


) 6.0 


1.3) 


( * < 


( taskforce-m730 


tfi 


1 5.5 


2.6) 


(a , 


[ taskforce-ml 


tfi 


l 5.0 


10.8) 


( < 


taskforce-ml 


tfi 


) 6.5 


56.6) 


( * 1 


taskforce-ml 


tfi 


) 5.0 


44.7) 


, 


taskforce-m60 


tfi 


) 4.5 


2.0 


( * I 


l taskforce-mSC 


tfi 


1 6.5 


28.1) 


(* < 


{ taskforce-m60 


tfi 


) 4.5 


35.7) 



qual (ope rat ion- a re a 


opl) 


1 conus) 


* ( 


taskforce-m2 


tfi 


3.0 


6.4) 


* \ 


Jtaskforce-m2 


tfi) 


5.5 


13.0) 


A ( 


( taskforce-m2 


tfi) 


5.5 


8.6) 


A ( 


, taskforce-m3 


tfi) 


3.0 


6.4) 


A ( 


( taskforce-m3 


tfi) 


5.5 


18. 0) 


A / 


| taskforce-m3 


tfi) 


5.5 


3.6) 


A / 


taskfcrce-mll3 


tfi) 


7.0 


l.o) 


A / 


( taskforce-mll3 


tfi 


6.8 


8.6) 


A ( 


taskforce-mll3 


tfi) 


1.9 


10.3) 


A ( 


( taskforce-m901 


tfi 


3.0 


1.0) 


A / 


’ taskforce-m901 


tfi 


5.5 


8.6) 


A ( 


taskforce-m901 


tfi 


5 . 5 


8.9) 


A / 


( taskforce -ml 2 5al 


tfi 


5.0 


1.0) 


A | 


[ taskforce-ml25al 


tfi) 


3.8 


8.6) 


A ( 


taskforce -ml 2 5al 


tfi) 


1.6 


10.3) 


A ^ 


’ taskforce-ml06al 


tfi) 


5.3 


1.0) 


A ( 


taskforce -ml 06 al 


tfi 


3.1 


10. o) 


* i 


: taskforce-mi06al 


tfi) 


4.3 


13.3) 


’* i 


[ taskforce-ml02 


tfi) 


24.0 


0.2) 


'* i 


1 taskforce-ml09 


tfi) 


6.2 


1.0) 


* < 


taskforce-mlQ9 


tfi) 


1.9 


11. s) 


* 1 


. taskforce-ml09 


tfi) 


2.9 


16. l) 


^ < 


(taskforce-mllO 


tfi) 


4.1 


1.6) 


^ ( 


s taskforce-mllO 


tfi 


1.9 


12.5 


' A < 


y taskforce— m 110 


tfi) 


4.1 


14.3) 


'* , 


y taskforce-mlrs 


tfi) 


5.0 


1.0 


'* ( 


( taskforce-mlrs 


tfi 


4.0 


6.2) 




taskforce-mlrs 


tfi) 


4.5 


8.9 


'a , 


( taskforce-ml63 


tfi 


2.4 


l.o) 


‘a I 


y taskforce-ml63 


tfi) 


7.2 


5.2) 


* < 


( taskforce— ml63 


tfi 


4.8 


13. 0) 


'a , 


; taskforce-m730 


tfi) 


4.0 


0.5) 


l A < 


taskforce-m730 


tfi) 


6.0 


1.3 


, 


f taskforce-m730 


tfi) 


5.5 


2.6 


1 * , 


y taskforce-ml 


tfi) 


5.2 


10.8) 


> A 1 


(taskforce-ml 


tfi) 


3.3 


56.6) 


'a , 


( taskforce-ml 


tfi) 


3.4 


44.7) 


* * ( 


( taskforce-m60 


tfi) 


4.2 


2.0) 


* 1 


( taskforce-m60 


tfi) 


8.5 


28.1 


!* i 


i taskforce-m60 


tfi) 


2.9 


35.7) 



(defun compute-ammo ( x ha hd ma md la Id ) 

(cond ((and (equal (operation-mission opl) 'attack) 
(equal (operation-intensity opl) 'hi)) 
(* x ha) ) 

((and (equal (operation-mission opl) 'defend) 
(equal (ooeration-intensity opl) 'hi)) 
(* x hd) )‘ 
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( (and 



( (and 



( (and 



( (and 



(equal (operation-mission opl) 'attack) 
(equal (operation- intensity opl) 'mid)) 
(* x ma) ) 

(equal (operation-mission opl) 'defend) 
(equal (operation- intensity opl) 'mid)) 
(* x md) ) 

(equal (operation-mission opl) 'attack) 
(equal (operation-intensity opl) 'low)) 
(* x la) ) 

(equal (operation-mission opl) 'defend) 
(eaual (operation-intensity opl) 'lew)) 

(**x Id)))) 



:rori) (terpri) 
OPERATION 1 ') 



"> 

") 

") 



(defun write-output () 

I terpri) (terpri) (ter] 
princ " 
terpri) 

princ " date 
prinl (operation-date opl)) 
terpri) 

princ " unit 
prinl (operation-unit opl)) 

(terpri) 

(princ " mission 
(.prinl (operation-mission opl)) 
(terpri) 

(princ ■' climate ") 

I prinl (operation-climate opl)) 
terpri) 

princ " area ") 

prinl (operation-area opl)) 
terpri) 

princ " tf-type ") 

prinl (operation-tf-type opl)) 
terpri) 

princ " tf-size ") 

(prinl (operation-tf-size opl)) 
(terpri) 

(princ " intensity 

(prinl (operation-intensity opl)' 
(terpri) 

•princ “ moppeondition ") 

1 prinl (operation-moppeondition opl)) 
terpri) 

princ " personnel-strength ") 

prinl (operation-personnel opl)) 
terpri) 

princ " ration-policy ") 

vprinl (operation-ration-oolicy opl)) 
(terpri) ) 
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(defun taskforce-output () 

( terpri) ( terpri) ( terpri) ( terpri) ( terr 
(princ " TASKFORCE COMPOSITE 

(terpri) (terpri) (terpri) 

(princ 11 M2 INF FIGHTING VEHICLE 
(prinl ( taskforce-m2 tfl)) 

( terpri) 

(princ " M3 CAV FIGHTING VEHICLE 

i prinl ( taskforce-m3 tfl)) 
terpri) 

princ '■ Ml 13 PERS CARRIER 
prinl ( taskforce-mll3 tfl)) 
terpri) 

princ 11 M901 CBT VEH ITV 
prinl ( taskforce-m901 tfl)) 
terpri) 

princ 11 M125A1 81MM CARRIER 
prinl (taskforce-m!25al tfl)) 
terpri) 

princ '■ M106A1 107MM CARRIER 
prinl _ ( taskforce-ml06al tfl)) 
terpri) 

princ •' M102 105MM HOWITZER 
prinl (taskforce-ml02 tfl)) 
terpri) 

(princ " M109 155MM SP HOWITZER 
(prinl (taskforce-ml09 tfl )) 

■terpri) 

(princ *' MHO 8INCH SP HOWITZER 
(Drinl ( taskforce-mllO tfl )) 

(terpri) 

(princ " LAUNCH- LOAD MLRS 
(prinl ( taskforce-mlrs tfl )) 

(terori) 

(princ " M163 VULCAN AIR DEFENSE 
(prinl ( taskforce-ml63 tfl )) 

( terpri) 

(princ '■ M730 CHAP AIR DEFENSE 
(prinl ( taskforce-m730 tfl)) 

( terpri) 

(princ '• Ml TANK 105MM 
(prinl ( taskforce-ml tfl )) 

'terpri) 

(princ '• M60 TANK 105MM 
(prinl ( taskforce-m60 tfl)) 

■ terpri) 

(princ " TOW LAUNCHER 
(prinl (taskforce-tows tfl)) 

( terori) 

(princ " M222 DRAGON LAUNCHER 
(prinl ( taskforce-m222 tfl)) 

> terpri) 



(princ 



in 

IN" 



M2 50 CALIBER MG 



(prinl ( taskforce-m2mg tfl)) 

( terpri) 

(princ '■ M60 MG 

(prinl ( taskforce-m60mg tfl)) 

( terpri) 

(princ •' M16A1 RIFLE 

'prinl ( taskforce-ml6al tfl )) 

("format t " ")) 



) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(defun logistics-output () 
(terpri) (terpri) 



« 



nnc 
erpri) 
princ 1 
terpri) 
princ 
format 
princ 
terpri) 
princ ' 
format 
princ 
terpri) 
princ 1 
format 
princ 
terpri) 
princ 
format 
princ 
terpri) 
princ 
( format 
(princ 
(terpri) 
(princ 
{ format 
(princ 
' terpri) 
princ ( 
format 
princ 
terpri) 
princ 1 
format 
(princ 
( terpri) 
(princ 
{ format 
(princ 
( terpri) 
(princ 
( format 
(princ 
terpri) 
princ 
format 
princ 
terpri) 
princ 
format 
princ 
t erpri) 
princ 
format 
princ 
terpri) 
princ 
format 
princ 1 
terpri) 
princ 
format 
princ 1 
terpri! 
,princ f 
(format 
princ 1 
terpri) 



ESTIMATE ") 

GENERAL ESTIMATE") 



LOGISTICS 

(terpri) 

SUPPLY ITEM 
(terpri) (terpri) 

Water ") 

10D" (round (supply-item-water supl))) 
gallons" ) 



B-Rations 



') 



10D" ( supply- item-b- rations supl) ) 

rations" ) 

MRE-Ration ") 

10D" (supply-item-mre-rations supl ) ) 
rations ") 

Class II Supplies ") 

10D M (round ( supply-item-class-II-supplies supl))) 
STOMS ") 

Diesel Fuel ") 

10D" (round (supply-item-diesel-fuel supl))) 
gallons ") 

Class IV Supplies ") 

10D" (round (supply-item-ciass-IV-supplies supl) ) ) 
STONS ,] ) 

Tank ammo 105mm " ) 

10D" (supply- item- tank- ammo- 105mm supl) ) 
rounds ") 

TOW ammo 11 ) 

10D" (supply- item- tow- ammo supl ) ) 
rounds " ) 

DRAGON ammo " ) 

10D" (supply-item-dragon-ammo supl)) 
rounds 11 ) 

Howitzer ammo 105mm ") 

10D" (supply- item-howitzer-ammo- 105mm supl ) ) 
rounds " ) 

Howitzer ammo 155mm 11 ) 

10D" ( supp ly-i tern- howitzer- ammo- 1 55mm supl ) ) 
rounds ") 

Howitzer ammo 8 inch ") 

10D" ( supp ly-i tern-howitzer- ammo -8 in supl ) ) 
rounds 11 ) 

Vulcan ammo 20mm ") 

10D" ( supply-item-vulcan-ammo-20mm supl)) 
rounds" ) 

Mortar ammo 81mm 11 ) 

10D" (supply-item-mortar-ammo-81mm supl)) 
rounds ") 

Mortar ammo 107mm ") 

" 10D" (supply-item-mortar-ammo-107mm supl)) 
rounds ") 

MG ammo .50 caliber 11 ) 

" 10D" (supply-item-mg-ammo- . 50-caliber supl)) 
rounds ") 
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(princ 11 
(format t 
(princ " 

( terpri) 
(princ " 
(format t 
(princ " 

( terpri) 
(princ " 
(format t 
(princ " 
(terpri) 
(princ " 
(format t 
(orir.c " 
(terpri) 
(princ " 
.’format t 
(princ " 
i terpri) ) 



MG ammo 7.62mm ") 

11 10D" (supply-item-mg-ammo-7 .62mm supl)) 
rounds ") 

rifle ammo 5.56mm ") 

" 10D" (supply-item-rifle-ammo-5 . 56mm supl)) 
rounds " ) 

Class VII supplies ") 

11 10D" (round (supply-item-class-VII-supplies supl))) 
STONS ") 

Class VIII supplies ") 

11 10D" (round (supply-item-ciass-VIII-supplies supl))) 
STONS ") 

Class IX supplies ") 

" 10D"(round (supply-item-class-IX-supplies supl))) 
STONS ") 
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